Emailadressen aus Outlook ablesen
VerenaK
Ich habe ein Makro gebastelt, das automatisch Emails verschickt und sich die adressen dazu selber aus Outlook zieht, indem es eine Spalte mit Namen aus einer Exceltabelle ausliest.
Es funktioniert soweit auch, aber bei zwei Feldern hängt es sich auf.
Bei dem einen liegt das Problem darin, dass es zwei Personen mit gleichem NAmen im Outlook gibt, bei dem anderen, daran, dass die betreffende Person keine Emailadresse im Outlook hinterlegt hat.
Jetzt würde ich für diese zwei Fälle gerne eine Ausnahmeregelung in mein Makro schreiben so nach dem Motto:
Sub Ausnahme()
If Worksheets("Offen").Cells(I, 26) = Name der PersonThen
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Emailadresse der Person .Subject = "Reminder: Kaizen Zeitung "
.Body = "Guten Tag Herr ...." & vbCrLf & vbCrLf & _
.Display
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%s", True
DoEvents
End With
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
End Sub
mein Problem ist, dass ich nicht weiß an welcher stelle ich diese Ausnahme in mein schon existierendes Makro reinschreiben soll.
kann mir da vielleicht jemand helfen?
der ganze code lautet:
Sub OriginalExcel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim I As Integer
Dim Nachricht
Zeile = Worksheets("Offen").Range("B65536").End(xlUp).Row
For I = Zeile To 22 Step -1
If Worksheets("Offen").Cells(I, 26) Vielen Dank schonmal für eure Hilfe!
Gruß,
Verena