Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:39:41
Christian
ich habe bereits geschafft, Emails per Button automatisch zu versenden, jedoch zieht sich Outlook nur die Adressen für die "To" Zeile. Mein Anliegen wäre, eine zweite Email Adresse direkt ins "CC" zu kopieren.
Kann mir jemand helfen?
Hier mein Code:
Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Set sAdress = Range("D4")
Set sSubject1 = Range("A4")
Set sSubject2 = Range("M4")
sBody = Range("V1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 5000
If Cells(IntZeile, 11) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: " & _
sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub