Thema Datum  Von Nutzer Rating
Antwort
Rot E-Mail mit Anhang versenden
 18.03.2008 17:49:23 Andre
NotSolved

Ansicht des Beitrags:
Von:
Andre		 Datum:
18.03.2008 17:49:23		 Views:
2145		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail mit Anhang versenden
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot E-Mail mit Anhang versenden
 18.03.2008 17:49:23 Andre
NotSolved