Mail versenden - Empfänger aussuchen
Peter
ich bräuchte mal eure Hilfe. Folgende Situation: ich möchte aus Excel heraus eine mail erzeugen (das klappt auch) und an verschiedene Empfänger schicken (das klappt noch nicht...). Ich habe es mir so gedacht: Ich habe in Spalte "I" eine Reihe von email-Adressen und in Spalte "J" die Bedingung "Ja"/"Nein". Wenn in Spalte "J" ein "Ja" steht, soll die email-Adresse aus Spalte "I" mit in den Empfängerkreis aufgenommen werden; bei "Nein" nicht. Bisher habe ich leider nur eine fixe email-Adresse im Code. Hier der Code:
Sub mail_verschicken()
If MsgBox("Mails verschicken?", vbYesNo) = vbNo Then Exit Sub
Dim olApp As Object
Dim objNachricht As Object 'Variable für die Mail
Dim objRecipient As Object 'Variable für die Empfänger
Set olApp = CreateObject("Outlook.Application") 'Erzeuge Outlook-Sitzung
'Erstelle eine neue Nachricht, die 0 in CreateItem steht für olMailItem
Set objNachricht = olApp.CreateItem(0)
With objNachricht
.Subject = "Testmail"
.Body = "Text der mail"
'Erzeuge Adressaten
Set objRecipient = .Recipients.Add("Beispiel@beispiel.com")
objRecipient.Type = 3 'Adressiere: 1=to 2=cc 3=bc
.Importance = 1 'entspricht olImportanceHigh = Hohe Wichtigkeit
.Sensitivity = 3 'entspricht olConfidential = Vertraulich
.Send 'Sende die Nachricht
End With
'Bereinigung der Variablen
Set objRecipient = Nothing
Set objNachricht = Nothing
'olApp.Quit
Set olApp = Nothing
End Sub
Könnt ihr mir da auf die Sprünge helfen? Vielen Dank schon mal!
Beste Grüße,
Peter