das Makro funzt super, aber ich bekomme die Datei nicht eingefügt.
Jetzt möchte ich das die Datei mit angehangen wird.
der verweis ist auf Tabellenblatt "Tipper" Spalte H10" eingetragen.
C:\Eigene Dateien\Tipper\Test.xls
Sub Mail_Test()
'Example for Outlook Express with API call
'In Excel 2002 I can use around 1800 characters
Dim msg As String, URL As String
Dim Recipient As String, Subj As String
Dim Recipientcc As String, Recipientbcc As String
Dim cell As Range
Recipient = "Test@gmx.de"
Recipientcc = ""
Recipientbcc = ""
'You can use a cell value also like this
'Recipient = Sheets("mysheet").Range("A1").Value
Subj = "Fussballtippdatei Test"
'Subj = Sheets("mysheet").Range("A2").Value
msg = "Moin Moin Test" & vbNewLine & vbNewLine
For Each cell In Sheets("Tipper").Range("A2:A8")
msg = msg & vbNewLine & cell
Next cell
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")
URL = "mailto:" & Recipient & "?cc=" & Recipientcc & "&bcc=" & Recipientbcc _
& "&subject=" & Subj & "&body=" & msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:10"))
SendKeys "%s"
End Sub
Danke im Vorraus
office 2003
Günther