Hallo,
habe hier im Forum schon eine ähnliche Frage gestellt; dann aber gedacht, dass das Problem gelöst sei. Dem ist leider nicht so.
Kann mir jemand helfen aus den beiden nachfolgenden Makros ein Makro zu machen.
Als Einzelmakro laufen beide.
Beim ersten Makro wird die ausgehende E-Mail nicht gespeichert.
Das zweite Makro kopiert ein TB und versendet dann an mehrere Empfänger.
Das Häkchen unter Option soll nicht händisch entfernt werden. Auch eine dauerhafte Option für Nichtspeichern soll nicht vorgenommen werden. Es sollen lediglich diese ausgehenden Mails des 2. Makros nicht gespeichert werden.
Sub Mail_mich()
Dim ol As Outlook.Application
Dim mm As MailItem
Set ol = CreateObject(„Outlook.Application“)
Set mm = ol.CreateItem(olMailItem)
With mm
.Subject = „Abrechnung).Value“
.Recipients.Add „[email protected]“
.DeleteAfterSubmit = True
.Send
End With
’
End Sub
Sub Abrechnung()
ActiveWorkbook.Worksheets(„102dez“).Copy
ActiveWorkbook.SendMail Recipients:=„[email protected]“, _
Subject:=„Abrechnung“ & " " & Range(„X1“).Value
ActiveWorkbook.SendMail Recipients:=„[email protected]“, _
Subject:=„Abrechnung“ & " " & Range(„X1“).Value
’ und weitere Empfänger
ActiveWorkbook.Close savechanges:=False
End Sub
Ich freue mich über jede Hilfe
Gruß;Georg