stehe mal wieder vor einem Problem. Mit unten stehendem Code lese ich alle betreffenden E-Mail-Adressen aus und möchte an diese eine Nachricht senden. Allerdings werden nach dem Start des Mailprogrammes (Netscape) nicht alle Adressen eingetragen, sondern nur 259 Zeichen, es hört also bei irgend einer Adresse mittendrin auf. Betreffzeile und Text sind dann auch nicht da. Sind Adressen, Betreff und Text kleiner as 259 Zeichen, funzt es.
Bei Excel 9.0 habe ich dagegen überhaupt keine Probleme. Weiß jemand Rat ???
Gruß Lutz
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(Address As String, Optional Subject As String, _
Optional Txt As String)
Call ShellExecute(0&, "Open", "mailto:" + Address + _
"?Subject=" + Subject + "&Body=" + Txt, "", "", 1)
End Sub
Sub MailVersenden()
Dim sAddress As String
Dim sSubject As String
Dim sTxt As String
Dim SDest As String
SDest = ""
For iCounter = 1 To 31
If SDest = "" Then
SDest = Cells(iCounter + 6, 65).Value
Else
SDest = SDest & "," & Cells(iCounter + 6, 65).Value
End If
Next iCounter
sAddress = SDest
sSubject = Range("D1") & " " & Range("F4") & " " & Range("D4")
sTxt = Range("H1") & Range("F4") & " " & Range("H2")
Call Mail(sAddress, sSubject, sTxt)
End Sub