Email versenden
13.10.2017 07:04:52
Tommy
Ich nutze den unten stehenden Code.
Wie muß ich diesen anpassen, wenn ich zusätzlich aus Zelle N5 und Zelle N8 als E-Mail Empfänger hinzufügen möchte?
Da zu den Empfängern immer wieder jemand hinzukommen kann, möchte ich Zellen als Empfänger einbinden, auch wenn dort noch keine E-Mail Adresse drin steht.
Zb. Zelle D11, D13, oder I10....
Danke für Eure Hilfe...
Sub Email_versenden()
Set olAppication = CreateObject("Outlook.Application")
Set objEMail = olAppication.CreateItem(olMailItem)
Application.Wait Now + TimeSerial(0, 0, 5)
With objEMail
.To = Worksheets("Daten").Range("N3").Text
.Subject = "Test"
.Body = "Testmail" & _
vbCrLf & "" & _
vbCrLf & "Mit freundlichen Gruessen" & _
vbCrLf & "Tommy"
.send
End With
SendKeys "%s", True
SendKeys "^{ENTER}", True
Set objEMail = Nothing
End Sub