Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Adressen für E-Mail einlesen

Forumthread: Adressen für E-Mail einlesen

Adressen für E-Mail einlesen
04.02.2003 15:23:20
Lutz
Hallo zusammen,

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



Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 06.02.2003 08:21:47
    Lutz
Anzeige
oT
06.02.2003 08:21:47
Lutz



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige