Email an mehrere Email-Adressen aus einer Zelle
05.03.2015 14:55:09
Christian
ich habe folgendes Problem:
Ich möchte eine autom. Email an mehrere Email Adressen, die in einer Zelle Hinterlegt sind, verschicken. Es gibt jedoch auch Zellen, in der nur eine Email steht (das funktioniert aber!).
Die Email Adressen in der Zelle habe ich so geschrieben:
xyz@bla.de; xyz@bla1.de
...trotzdem nimmt er nur die erste Email.
Code sieht so aus:
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("U1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 1000
If UCase(Cells(IntZeile, 11)) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 1, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 1, 0).Value & " endet am: " & _
sSubject2.Offset(IntZeile - 1, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub