Email-Versand
21.01.2018 12:30:18
Erik
zunächst vielen Dank an so Leute wie Euch. Ich habe mir im Laufe der Zeit einige Exel-Kenntnisse angeeignet, dies vielfach durch Übernahme Eurer Tips!!!
Ich möchte gerne aus Exel heraus mails verschicken, die bestimmte Zellinhalte haben. Soweit so gut, hier habe ich etwas gefunden, was ich verwenden kann. Funktioniert soweit ok. Haken dabei ist aber, dass der Versand nicht sichtbar erscheint.
Dies ist das script:
Sub Mail()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim sAddress As String
sAddress = Range("D1").Value
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sAddress)
.Subject = "Dies ist ein Outlook-Test"
.Body = Range("A10").Value
.Importance = 1
.Send
End With
oOLRecip.Resolve
Set oOLRecip = Nothing
Set oOLMsg = Nothing
Set oOL = Nothing
End Sub
Ich möchte gerne zwei Sachen anpassen, was ich leider nicht schaffe. 1. Wie muss ich das script verändern, damit sich outlook nur mit den Daten öffnet und ich das Senden noch aktiv bestätigen kann bzw. alternativ abbrechen?
2. Wenn das mit dem Öffnen und aktiven Senden nicht geht, wie kann da eine Sicherheitsfrage einbauen, dass die Mail tatsächlich gesendet werden soll? Also, dass nicht durch versehentliches Drücken die mail rausgeht.
Variante 1 wäre mir lieber.
Lieben Dank an alle und einen schönen Sonntag!
Erik