Mailversand - Tabellenblatt einfügen
11.09.2007 13:20:45
Stefan
So - ich möchte gerne aus Excel heraus eine E-Mail per Schaltfläche versenden. Hab hier auch einmal gesucht und ein entspr. Makro gefunden. Was ich aber nicht hinkriege, dass das aktuelle Tabellenblatt mit angehängt wird, in dem das steht, was versendet werden soll ( Range A8 bis N40 ).
Das Makro steht mit hier:
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Mail(sAdr As String, Optional sSub As String, _
Optional sBody As String)
Call ShellExecute(0&, "Open", "mailto:" + sAdr + _
"?Subject=" + sSub + "&Body=" + sBody, "", "", 1)
End Sub
Sub MailVersenden()
Dim sAddress As String, sSubject As String, sTxt As String
sAddress = Range("B1").Value
sSubject = Range("B2").Value
sTxt = Range("B3").Value
Call Mail(sAddress, sSubject, sTxt)
End Sub
bzw. HIER: https://www.herber.de/mailing/089099h.htm
Vielen Dank für Eure Hilfe im Voraus & schäne Grüße
Stefan
Anzeige