sehe gerade eine ähnliche Anfrage. Ich war in der Recherche und habe versucht die Zusammenhänge zu verstehen. Ich habe ein super Makro gefunden und
möchte dieses um eine weitere Funktion ergänzen und habe auch hierzu das passende Makro gefunden. Meine ersten VBA-Schritte lassen eine sinnvolle Kombination für mich leider nicht zu.
Meine Bitte: Ich möchte aus dem ZWEITEN Makro die Befehle übernehmen die für das Handling der Dateianlage im Mailprogramm zuständig sind (Bspw. Range ("W3:Y5"), Workbooks.Add1, Copy Range ("A1"), Colums.AutoFit usw....).
WELCHE Befehle genau muß ich WO im ERSTEN Makro einfügen, dass zusätzlich in diesem eben auch die Dateianlage übergeben wird?
Hier das ERSTE Makro:
Private Sub Mail(sAdr As String, Optional sSub As String, _
Optional sBody As String)
Stop
Call ShellExecute(0&, "Open", "mailto:" + sAdr + _
"?Subject=" + sSub + "&Body=" + sBody, "", "", 1)
End Sub
Sub MailVersenden()
Stop
Dim sAddress As String, sSubject As String, sTxt As String
sAddress = Range("E21").Value
sSubject = "Übergabe der Monatsdaten " & Range("J3")
sTxt = Range("B3").Value
Call Mail(sAddress, sSubject, sTxt)
Stop
End Sub
Und hier das ZWEITE Makro:
Sub EmailVersand()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("W3:Y5")
sAddress = Range("E21").Value
Workbooks.Add 1
Columns.AutoFit
ActiveWorkbook.SendMail sAddress, "Adresse@.de"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Könnt Ihr mir dabei helfen?
Danke
Gruß
Wolfgang