Hallo Leute,
habe folgenden Code zum versenden einer Mail:
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
Funktioniert auch wunderbar.
Mich würde interessieren ob es auch die Möglichkeit gibt dieses Versenden der Mail automatisch zeitlich zu machen. Ich meine das wenn ein bestimmter Tag oder Uhrzeit erreicht ist die Mail mit dem Inhalt automatisch rausgeht.
Ahoi
Horst