Office: Email aus Excel per VBA verschicken

Hallo zusammen,

ich würde gern eine Mail aus Excel mittels VBA verschicken. Der folgende Code funktioniert auch schon.

Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "*****.****@gmx.com"

'Einstellungen für die Mail
'Betreff
.Subject = "Testmail"
'Nachricht
.Body = _
"Dies ist der Text von der Testmail! " & vbCrLf & vbCrLf & "Hallo"
'Lesebestätigung aus
.ReadReceiptRequested = False
'versenden
.Send
End With
Set olApp = Nothing

Leider läuft der Versand noch nicht automatisch, da Outlock folgende Meldung generiert: "Ein Programm versucht, auf Ihre in Outlock gespeicherten E-Mail-Adressen zuzugreifen. Möchten Sie dies zu lassen?" und "Eine Anwendung versucht, automatisch Nachrichten in Ihrem Auftrag zu senden. Möchten Sie dies zulassen?"

Kann man diese Fragen ausstellen oder muss man vielleicht in Outlock Einstellungen ändern?

Beste Grüße

Mathias

:)

 

Hallo!

Eine Forensuche hätte Dir die Antwort schon gegeben, ohne Warten auf eine Antwort.

Welche Outlookversion? Ab Outlook 2007 kannst Du in den Optionen die Sicherheitsstufe ändern. Bis Outlook 2003 kannst Du anstelle von ".send" mit SendKeys arbeiten. Ersetze ".send" durch ".display" und füge dann folgenden Code an.

Code eingefügt mit

 

Hi,

schau mal hier: Express ClickYes - Download - Kostenlos & schnell auf WinTotal.de

 

Kleiner Privattipp:
Derartige "Hilfsprogramme" sollten mit Bedacht eingesetzt werden. Denn (theoretisch) könnten dann auch Angreifer dieses Hilfsprogramm nutzen um Outlook zur Spamschleuder zu machen (wenn es diese Angreiferprogramme nicht ohnehin selber können). Dies nur mal zur Anmerkung, da dies die wenigsten bedenken.

 

Hi mumpel,

dem ist nichts hinzuzufügen, da hast Du Recht, da sollte man vorsichtig sein. Ich persönlich benutze kein Outlook, sondern versende meine Mails über "blat", seit ca. 7 - 8 Jahren.

 

Hallo zusammen,

zu nächst möchte ich mich für die ganzen Hilfen bedanken, aber leider läuft es immer noch nicht )-: und ich nutze Outlock 2003

Ich habe den Code so umgebaut wie Rene es beschrieben hat, aber leider hat das mit dem Hotkey nicht funktioniert ...

Muss ich vielleicht noch ein paar Verweise hinzufügen. Des Weiten habe ich noch das Problem, dass folgende Meldung gleich zum Anfang kommt:

"Ein Programm versucht, auf Ihre in Outlock gespeicherten E-Mail-Adressen zuzugreifen. Möchten Sie dies zu lassen?"

Kann man diese auch irgendwie unterdrücken?

Könntet ihr mir bitte noch mal helfen?

Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "___.___@gmx.de"

'Einstellungen für die Mail
'Betreff
.Subject = "Testmail"
'Nachricht
.Body = _
"Dies ist der Text von der Testmail! " & vbCrLf & vbCrLf & "Hallo"
'Lesebestätigung aus
.ReadReceiptRequested = False
'versenden
.Display
Set WsShell = CreateObject("WScript.Shell")
WsShell.AppActivate olApp
WsShell.SendKeys "%s"
Set WsShell = Nothing
End With

Set olApp = Nothing

Beste Grüße

Mathias

 

Hi,

schau mal im VBA-Editor unter Extras, Verweise, ob da irgendwas von bei den Einträgen von MS irgendwas von Outlook steht, ich kann nicht nachschauen, da kein Outlook!

 

Hallo zusammen,

ich habe zusätzlich als Verweis noch die Microsoft Outlook 11.0 Object Library hinzugefügt. Dies hat leider auch nicht geholfen.

Weiß vielleicht jemand noch einen anderen Rat?

Beste Grüße

Mathias

 

Normalerweise benötigst Du keine Verweise. Mit dem SendKeys und ohne Zugriffsmeldung funktioniert es nur dann direkt, wenn Du ".to" benutzt anstelle von "Recipients.Add". Bei ".to" werden die Adressen direkt angegeben.

Code eingefügt mit VBA in HTML 2.0

Übrigens: Nothing ist in VBA nicht zwingend, da sich Objekte nach Abarbeiten des Makros selbst "zerstören".

 

Moin, René,

Sollten sie laut Theorie, aber im Access-Forum kann man massenhaft Fragen zu weiterhin im Speicher vorhandenen Instanzen von Excel finden. Ich finde es wichtiger, dass die Verweise in der umgekehrten Reihenfolge des Setzens aufgelöst werden...

 

Hallo zusammen,

jetzt funktioniert tatsächlich schon fast alles, außer beim Versenden gibt es noch Probleme.

Kann es sein, dass mir die WScript.Shell-Funktion vielleicht auf meinen Rechner nicht zur Verfügung steht bzw. kann ich das irgendwie prüfen?

Set WsShell = CreateObject("WScript.Shell") 'versenden
WsShell.AppActivate olApp
WsShell.SendKeys ("%S") --> hier macht mein Computer immer so ein Dong-Geräusch?!, aber der Code läuft weiter
End With

Beste Grüße

Mathias

 

Hallo zusammen,

vielen Dank für Eure Unterstützung! Das war natürlich nur mein Fehler. Ich habe den Fehler begangen, dass ich das Makro aus der VBA-Umgebung manuell immer gestartet. Er hat zwar Outlock aktiviert aber ich habe manuell Excel wieder aktiviert und dann läuft das alles natürlich nicht. Anbei schicke ich noch einen vollständigen Code mit.

Beste Grüße und vielen Dank

Mathias

Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)
.To = "***.****@gmx.com" 'Empfänger"
'.cc="empfänger2@t-mail.de;empfänger3@t-mail.de" 'Optional Kopie an
'.bcc="empfänger4@t-mail.de;empfänger5@t-mail.de" 'Optional Bliendkopie an
.Subject = "Testmail" 'Betreff
.Body = _
"Dies ist der Text von der Testmail! " & vbCrLf & vbCrLf & "Hallo" 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
Set WsShell = CreateObject("WScript.Shell") 'versenden
WsShell.AppActivate olApp
WsShell.SendKeys ("%s")
End With