MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 19.04.2011, 15:01   #1
Forza SGD
MOF Profi
MOF Profi
Standard Acc2007 - E-Mail senden ohne Sicherheitsabfrage

Hallo zusammen,

Bei mir soll via Knopfdruck ein Bericht als PDF gespeichert werden und anschließen dieser Bericht per Mail versendet werden. Funktioniert auch so weit:

Code:

Option Compare Database
Option Explicit
Private Const olMailItem = 0

Public Sub Export_Report()

Dim MyOutlook As Object
Dim mailitem As Object
Dim Pfad As String
Dim strSQL As String
Dim name_report As String
Dim rst As DAO.Recordset

strSQL = "SELECT AD_NR, AD_Mail FROM tbl_ad_info"

Set rst = CurrentDb.OpenRecordset(strSQL)

name_report = (rst.Fields(0) & "_Report")

Pfad = "D:\Access\Test\Test Report\" & name_report

DoCmd.OutputTo acOutputReport, "rpt_ad_potential", acFormatPDF, Pfad, False

Set MyOutlook = CreateObject("Outlook.Application")
Set mailitem = MyOutlook.CreateItem(olMailItem)

With mailitem

    .Subject = "Report"
    .to = rst.Fields(1)
    .body = "Anbei Ihr aktueller Report"
    .attachments.Add (Pfad)
    .send
    
End With

rst.Close
Set rst = Nothing

End Sub
Nun meine Frage. Gibt es eine Möglichkeit die Sicherheitsabfrage von Outlook zu umgehen? Ich hab es schon mit SendKeys probiert, allerdings ohne Erfolg!

Besten dank schonmal!

Geändert von Forza SGD (19.04.2011 um 15:04 Uhr).
Forza SGD ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2011, 15:12   #2
Micha_DU
MOF Koryphäe
MOF Koryphäe
Standard

vielleicht taugt das http://www.mosstools.de/index.php?op...ools&Itemid=64 was für dich?

Ansonsten... Mail am Bildschirm anzeigen lassen, dann via Sendkeys ein "Alt-S" schicken... funktioniert bei mir unter Outlook XP

__________________

Manche Männer bemühen sich ein Leben lang, das Wesen einer Frau zu verstehen... andere befassen sich mit weniger schwierigen Dingen, zum Beispiel mit der Relativitätstheorie.

Einstein ist tot, Newton ist tot und mir ist auch schon ganz übel...

Gruß Micha
Micha_DU ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.04.2011, 15:18   #3
Forza SGD
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Besten Dank Micha,

ich schau`s mir mal an!
Forza SGD ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:03 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.