bin mal gespannt, ob jemand von Euch heute morgen fitter ist wie ich, denn ich bekomme mein Makro nicht auf die Reihe!
Und zwar möchte ich per Click-Button in Excel eine beliebige Datei in Outlook als Attached File laden und an eine schon vorgegebene Adresse schicken!
Mein Makro so far:
Dim Datei As String
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
ÖFFNET OUTLOOK:
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
SCHREIBT FOLGENDE TEXTE IN DIE E-MAIL HINEIN:
With Mail
.Subject = "Versuchsauftrag.txt"
.Body = "Hallo .....," & Chr(13) & _
"Bitte veranlasse, dass folgender Versuchsauftrag geprüft wird:" & Chr(13) & _
"Viele Grüße " & Chr(13) & _
"Chris"
ActiveWorkbook.SendMail "Max.Mustermann@xxx.com"
End With
ÖFFNET DIE DATEI, DIE GEMAILT WERDEN SOLL:
With Application.FileSearch
Datei = Application.GetOpenFilename(" (*.doc), *.doc")
If Datei = "Falsch" Then
GoTo ende
Else
Mail.Attachments.Add Datei
End If
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
ende:
Jetzt meine Probleme:
- Die Texte welche in die E-Mail geschrieben werden, werden
nicht untereinander geschrieben, sondern direkt hintereinander!
(Es wäre klasse, wenn: "Hallo ...." , Absatz , " "Könntest
Du ...." , Absatz , "Gruß Chris" in die E-Mail geschrieben
wird)
- Der Name des E-Mail-Empfängers wird nicht in die E-Mail
geschrieben!
Vielen Dank schon mal vorab für Eure Hilfe!
LG Chris