Hallo,
ich habe mir inzwischen hingebastelt, dass ich nach Klick auf einem Button eine E-Mail versenden kann.
Nun soll das Dokument, in dem der User den Button betätigt auch noch als Attachment an die E-Mail angefügt werden.
Dies ist mein bisheriger Code:
--------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application
' Ein neue Outlook-Instanz und ein neues Mailitem erstellen
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)
With myMail
' Den Empfänger der Mail festlegen
.To = "mail@mail.de"
' Einen CC-Empfänger hinzufügen
.CC = "mail@mail.de"
' Den Betreff der Mail festlegen
.Subject = "Unfallbericht"
' Text in die Mail einfügen
.Body = "Sehr geehrter Herr ........., " & vbCrLf & _
"Sehr geehrter Herr ........., " & vbCrLf & vbCrLf & _
"In Anlage an diese E-Mail sende ich Ihnen meinen Bericht zu." & _
vbCrLf & vbCrLf & "Wenn Sie uns weitere Informationen zukommenlassen wollen, können Sie dieses hier gerne tun:" & vbCrLf
' Die Email abschicken
.Display
' Anstatt die Email sofort zu senden, kann man auch die Display-Methode des
' Mailitems verwenden, um die Email anzuzeigen und sie vom Benutzer manuell
' verschicken zu lassen.
End With
' Objektvariablen zerstören und Speicher freigeben
Set myMail = Nothing
Set myOutlApp = Nothing
End Sub
-------------------------------------------------------------------------------------------------------
Ich würde mich freuen, wenn mir hier geholfen wird.
Gruß und Danke im Voraus
Andre |