PDA

Vollständige Version anzeigen : E-Mail senden ohne Sicherheitsabfrage


Forza SGD
19.04.2011, 15:01
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:

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!

Micha_DU
19.04.2011, 15:12
vielleicht taugt das http://www.mosstools.de/index.php?option=com_content&view=article&id=64:olconnector&catid=34:accesstools&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

Forza SGD
19.04.2011, 15:18
Besten Dank Micha,

ich schau`s mir mal an!