Emails senden per VBA an Bereich
13.02.2018 13:18:50
Carsten
ich sende E-Mails aus Excel heraus und habe eine Liste von Empfängern, dessen Anzahl variiert.
Diese Befinden sich in Bereich A25:A34. Es kann vorkommen, das es mal eine Adresse ist aber auch mal 7 oder so.
Hier mein Code:
Select Case Hour(Time)
Case Is = 12
TxtHello = "Guten Tag," & vbNewLine
Case Is >= 18
TxtHello = "Guten Abend," & vbNewLine
End Select
Dim name As String
name = CreateObject("Outlook.Application").GetNamespace("MAPI").Session.CurrentUser
'if not nothing fehlt
For i = 27 To 29 Step 1
Application.ScreenUpdating = False
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.To = Sheets("BG").Cells(i, 1)
.Subject = "Testformular"
.Body = TxtHello & Chr(13) & "Test Meldung!" & Chr(13) & Chr(13) & " _
Ablaufbeschreibung" & Chr(13) & Ablauf & Chr(13) & Chr(13) & "Viele Grüße!" & Chr(13) & name & _
Chr(13)
.Attachments.Add ActiveWorkbook.FullName
.send
End With
Next i
Kann ich das da abfangen mit if not "" oder so? Oder While ""?
Anzeige