Tabellenblatt Per Mail versenden
17.09.2007 10:04:52
Stefan
Ich glaub in meinem 1ten Thread hab ich das Ganze etwas unglücklich angefangen ( Betreff ). Darum stelle ich die Frage nocheinmal:
Ich müßte ein Tabellenblatt per Mail versenden. Hab auch ein Makro gefunden, das soweit funktioniert - nur dass das Tabellenblatt mit angehängt wird - krieg ich nicht hin.
Es würde auch gehen, einen markierten Bereich mit in die E-Mail zu kopieren. Hab ich schon mal gehabt - nur dass dann die Formatierung völlig verloren geht und es nicht wie ein Tabelle sondern alles hintereinander ( also in der Form witzlos ) drinsteht.
Hier einmal das Makro:
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("A1").Value
sSubject = Range("A3").Value
sTxt = Range("A5").Value
Call Mail(sAddress, sSubject, sTxt)
End Sub
Ich bedanke mich schon einmal bei allen im Voraus & eine schöne Woche
Grüße Stefan