Mail per Excel versenden

01/10/2007 - 11:11 von alois.eckl | Report spam
Hallo,

ich habe folgende Anforderungen an das versenden einer Mail per Excel:

1. Die Mail-Adresse soll erst im Mail-Client eingegeben werden
2. Der Mail-Text soll mehrzeilig sein und mit entsprechenden Absàtzen
eingefügt werden.

Ich verwende dazu folgenden Code:

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
_______________________________________________________________________

Sub MailVersenden()
Dim eMail As String, Subject As String, Body As String
eMail = ""
Subject = ThisWorkbook.Sheets("Konto E").Range("Y23").Value
Body = "Sehr geehrte Damen und Herren," + Chr(13) + "wir bestàtigen
Ihnen untenstehendes Delkrederelimit." & _
Chr(13) & vbclf & "Abnehmer:"

Call Mail(eMail, Subject, Body)
End Sub
_______________________________________________________________________

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" & "?Subject=" & Subject &
"&Body=" & Body, "", "", 1)
End Sub


Die Mail wird soweit auch erzeugt, allerdings schaffe ich es nicht,
Zeilenumbrüche zu erzeugen.

Hat jemand eine Idee, wie sich das lösen làsst?

Vielen Dank für alle Tipps.

Schöne Grüße

Armin
 

Lesen sie die antworten

#1 lambdaoe
01/10/2007 - 12:30 | Warnen spam
Mal mit "+ Chr(13) + Chr(10) +" (oder umgekehrt) versuchen. Mir ist nie klar
wann und warum nur 13 reicht oder 13/10 erforderlich ist.
Vielleicht hilfts.


"" wrote:

Hallo,

ich habe folgende Anforderungen an das versenden einer Mail per Excel:

1. Die Mail-Adresse soll erst im Mail-Client eingegeben werden
2. Der Mail-Text soll mehrzeilig sein und mit entsprechenden Absàtzen
eingefügt werden.

Ich verwende dazu folgenden Code:

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
_______________________________________________________________________

Sub MailVersenden()
Dim eMail As String, Subject As String, Body As String
eMail = ""
Subject = ThisWorkbook.Sheets("Konto E").Range("Y23").Value
Body = "Sehr geehrte Damen und Herren," + Chr(13) + "wir bestàtigen
Ihnen untenstehendes Delkrederelimit." & _
Chr(13) & vbclf & "Abnehmer:"

Call Mail(eMail, Subject, Body)
End Sub
_______________________________________________________________________

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" & "?Subject=" & Subject &
"&Body=" & Body, "", "", 1)
End Sub


Die Mail wird soweit auch erzeugt, allerdings schaffe ich es nicht,
Zeilenumbrüche zu erzeugen.

Hat jemand eine Idee, wie sich das lösen làsst?

Vielen Dank für alle Tipps.

Schöne Grüße

Armin


Ähnliche fragen