Ach so...
05.07.2005 11:49:22
Michael
Mein Makro sieht bsi jetzt so aus:
Private Sub CommandButton1_Click()
'Example for Outlook Express
'In Excel 2002 I can use around 600-700 characters
Dim msg As String, cell As Range
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Recipient = "name@ort.de"
Recipientcc = ""
Recipientbcc = ""
'You can use a cell value also like this
'Recipient = Sheets("mysheet").Range("A1").Value
Subj = "Termin-Anfrage V-Export"
'Subj = Sheets("mysheet").Range("A2").Value
msg = "Hallo! Bitte teilen Sie uns den möglichen Termin für folgenden Auftrag mit:" & vbNewLine & vbNewLine
For Each Row In Sheets("Eingabe").Range("A3:B3")
msg = msg & Row & vbNewLine & vbNewLine
Next Row
For Each Row In Sheets("Eingabe").Range("A5:B6")
msg = msg & Row & vbNewLine & vbNewLine
Next Row
For Each Row In Sheets("Eingabe").Range("A9:E11")
msg = msg & Row & vbNewLine
Next Row
msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
'If you have hard returns in one of your cells you also need this line (Tip from Keepitcool)
msg = WorksheetFunction.Substitute(msg, vbLf, "%0D%0A")
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
End Sub