Email senden wenn Zelleninhalt
10.12.2018 15:44:52
Erik
ich habe folgenden Code in meiner Exceltabelle die durch klicken auf einen Button gestartet wird:
Sub Pruefung()
If Range("M1") = "a" Then EMailSenden
End Sub
Nach dieser Überprüfung wird der EMailSenden Code optional gestartet:
Sub EMailSenden()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim EMailan As String
Dim strName As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
EMailan = Sheets("Tabelle1").Range("A1").Value
With objMail
.To = EMailan
.Subject = "Terminvereinbarung - "
.Body = "Sehr geehrter Herr " & Range("B1") _
& vbCrLf & "" _
& vbCrLf & "anbei übersenden wir Ihnen einen Rückgabeantrag mit der Bitte um Genehmigung." _
& vbCrLf & "" _
& vbCrLf & "Mit freundlichen Grüßen" _
& vbCrLf & "" _
.Send
End With
MsgBox ("eMail wurde erfolgreich versendet!")
End Sub
Wenn dann in der jeweiligen Zeile unter Spalte M ein "a" soll für jede Zeile eine Mail an die Adresse aus der jeweiligen Zeile Spalte A gesendet werden.
Wie kann ich das bewerkstelligen ?
Vielen Dank vorab
und Gruß
Erik
Anzeige