Outllook Mail - From
marspoki
habe mal eine kleine Frage.
Ich möchte aus Excel herraus eine Mail versenden über Outlook.
Das Problem ist das ich die mail über ein Funktionsposfach verschiecken möchte.
Wie kann ich das realisieren!?
Hat jemand einen Rat.
zur zeit benutze ich folgenden Code:
Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = "Mustermann@freenet.de"
Mail.cc = ""
Mail.bcc = ""
Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail wurde automatisch versandt."
Mail.Display
End Sub
Besten Dank schonmalViele Grüße
Marspoki