ich brauche Hilfe beim Mailversand.
Die Mail soll einmal am Tag versandt werden.
Das klappt nicht immer. Warum weiss ich nicht. Die Mail erscheint dann auf meinem Desktop und ich muss senden nochmal bestätigen. Der Inhalt der Mail ist ok.
Die Mail soll ohne Nachfrage direkt gesendet werden.
Hier der Makro, der aus meiner Gogglesuche stammt:
Sub Email()
Application.ScreenUpdating = False
Sheets("tagesmit").Select
Range("M14").FormulaR1C1 = "0"
Range("M14").Select
Application.Wait Now + TimeValue("00:00:01")
If InStr(ActiveCell.Value, "0") > 0 Then
ActiveCell.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range(ActiveCell.Offset(0, -0), ActiveCell.Offset(0, -4)).Select
Selection.Copy
Application.ScreenUpdating = False
Dim strName As String
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Tagesanwesenheit Viernheim " & Now
Mail.To = "gisela@xxx.de"
Mail.cc = ""
Mail.bcc = ""
Application.SendKeys "{TAB}"
Mail.body = Chr(13) & "Hallo, ?" & Chr(13) & _
"o.a. die Tagesübersicht" & Chr(13) & "Liebe Grüße" & Chr(13) & "Gisela" & Chr(13) & _
"Dieses Mail wurde automatisch versandt"
Mail.Display
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys ("^v")
Application.SendKeys "%s", True
End If
End Sub
Vielen Dank für jede Hilfegisela