Excel VBA email schreiben und lokal abspeichern
15.07.2014 10:55:38
Sven
Hallo liebe Profis,
nach langer Recherche komme ich einfach nicht weiter. Daher hier mein 1. Beitrag mit der Bitte um Hilfe:
a) Vorraussetzungen
Excel 2010
Outlook 2010
PC: Win 7 Pro
b) Aufgabenstellung
Es solll in Excel über einen Button per Klick eine email in outlook erzeugt werden. Diese soll anschließend unter einem Netzwerkpfad Pfad z.B. \\Daten\Reklamationen\ abgespeichert werden.
Ich habe das ganze auch schon für ein Word Dokument gemacht, allerdings scheint die Syntax für outlook eine andere zu sein.
c) Hier der bisherige code:
Private Sub Entschuldigungsemail_Click()
Set olApp = CreateObject("Outlook.Application")
Set olDoc = olApp.CreateItem(0)
With olDoc
.To = Range("K6")
.Subject = Range("M4")
.HTMLbody = Range("L4") & " " & Range("K4") & " " & Range("K5") & "," & Chr(13) & Chr(13) & _
Range("M5")
.Display
'.Send 'Hier wird die Mail gesendet
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Das Email erzeugen (mit allen Texten und Empfänger etc.) funktioniert damit. Nur das Abspeichern bekomme ich einfach nicht hin.
Wollte dies mit folgendem code lösen. Funktioniert aber nicht:
Dim olPfad As String
olPfad = ("F:\DATEN2\Qualitätsmanagement\QM_Reklamationen\QM_Kunden-Reklamationen\" & "K_RKL" & "_" & [I1] & "_" & [G4] & "_" & [X1] & "\")
olDoc.SaveAs Filename:=emailPfad & "Entschuldigungsschreiben" & ".msg"
Das Abspeichern unter dem angegebenen Pfad soll über das Speichern Dialogfeld von outlook gemacht werden.
Hat mir jemand einen Tipp?
Viele Grüße
Sven