Tabelle mit Outlook Express versenden
29.06.2004 12:08:05
Peter
Nach etlichen Recherchen habe ich es endlich soweit, daß ich eine Tabelle per Outlook Express versenden kann. Ein Haken bei der Sache wäre noch, um es perfekt scheinen zu lassen, zu lösen. Der Body kann nur eine bestimmte Anzahl von Zeichen aufnehmen- Kennt hier jemand eine Lösung wie man die Grösse des Body´s einstellen kann?
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 CommandButton4_Click()
Dim i
Dim shZiel As Worksheet
Dim LZ
Dim introw%
Dim LM1, RM1, LM2, RM2, LM3, RM3
Dim sTo As String, sSubject As String, sBody
sTo = "123@456.at" 'Mailadresse
sSubject = "usw...." 'Betreff
<.....
<.....
<.....shziel(Tabelle) mit bestimmten Inhalten aus anderer Tabelle erzeugen
introw = shZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 50
sBody = sBody + "%0D%0A" + shZiel.Cells(i, 1).text + " " + shZiel.Cells(i, 2).text
Next
Call ShellExecute(0&, "Open", "mailto:" + sTo _
+ "?Subject=" + sSubject + "&Body=" + sBody, "", "", 1)
Application.Wait (Now + TimeValue("0:00:4"))
SendKeys "%s"
End Sub
also sBody kann nur eine bestimmte Anzahl Zeichen aufnhemen (1800)- möchte mir das versenden einer zweiten Mail, da es zu Irrtümern kommen kann, ersparen.
Vielleicht hat jemand eine Idee.....
Vielen Dank für Eure Aufmerksamkeit und schönen Tag!!
mfg Karas O.Peter