Hallo Leute,
habe folgende Code:
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
SDest = "Mailadresse"
For iCounter = 2 To _
WorksheetFunction.CountA(Columns(2))
Next iCounter
.To = SDest
.Subject = "Thema"
.Body = ActiveSheet.Range("f2").Value
.Send
End With
Set olMailItm = Nothing
Set olApp = Nothing
Funzt auch einwandfrei.
Meine Frage ist ob die Mail auch atomatisch zu einem bestimmten Zeitpunkt versenden lassen kann oder muss die Datei dazu immer geöffnet werden?
Grüße
Horst