Hallo zusammen,
versuche gerade, eine Art "Serienmail" aus Access heraus zu erstellen, die zu der jeweiligen E-Mailadresse einen Bericht anhängt. Das Ganze soll dann per Outlookmail versendet werden.
Habe jetzt einige Varianten ausprobiert, leider führt keine zum gewünschten Ziel.
Variante 1:
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Feld wo Mailadresse drin steht
.Subject = "Überschrift"
.Body = "Test"
.Display
Set WsShell = CreateObject("WScript.Shell")
WsShell.AppActivate olApp
WsShell.SendKeys "%s"
End With
Den Code häng ich dann in eine Schleife und lass ihn so oft ausführen, bis alles versendet wurde.
Hier habe ich Aktuell 2 Probleme.
Problem 1: Die SendKey - Methode sendet nur beim 1 Codedurchlauf automatisch ab dem 2 Durchlauf muss man auf "Senden" klicen.
Problem 2: Ich weis leider nicht wie ich hier einen Accessbericht anhänge. Wenn ich über .Add arbeite muss ich ja einen "Pfad" angeben z.B. C:\Eigene Dateien\.....
Ein Add In etc das das SendKeys-Problem eventuell lösen würde kann ich leider nicht installieren.
Variante 2:
DoCmd.SendObject acReport, "B-Belegung-MA-Info-Mailversand", "PDF-Format(*.pdf)", [Forms]![F-Mailversand]![E-Mail-Beruf], "", "", _
"Ihr Arbeitsplan", _
"Dieses ist eine automatisch generierte Email", False, ""
Diese Variante ist an sich ganz gut, funktioniert auch super bis auf das Problem das hier dann eben die Sicherheitswarnung von
Outlook aufploppt die einen darauf hinweist, dass ein Problem in meinem Namen
Mails versenden möchte.
Diese Meldung muss ich leider jedes mal anklicken.
Leider hab ich noch nichts gefunden über google etc wie ich diese Meldung umgehen kann. Wie gesagt, AddIns etc kann ich nicht installieren.
Weis jemand einen Rat wie entweder Variante 1 oder 2 zum laufen bringe oder eine andere Variante?
Wie gesagt.. ich möchte eine Mail öffnen, dort den Empfänger aus einem Textfeld reinschreiben, einen Accessbericht anhängen (ist immer der selbe allerdings anhand der Mailadresse mit anderem Inhalt) und die Mail dann OHNE irgendwas zu bestätigen etc wegschicken.
Ich wünsche euch (zumindest denen die morgen Feiertag haben) ein schönes langes Wochenende :-)
Gruß
morpheus