Per VBA Automatische Mail mit Formular Daten versenden

timo · November 29, 2016, 12:06:54

Hallo zusammen,

ich möchte gerne eine Automatische Mail versenden sobald ein Formular gespeichert wird.
Dies ist auch kein Problem mit folgendem Code:

Code [Auswählen]


Private Sub btnSaveBeschaffung_Click()

Dim Outlook As Object
Dim Item As Object
Set Outlook = CreateObject("Outlook.Application")
Set Item = Outlook.CreateItem(olMailItem)
With Item
.Subject = " Neue Bestellung! "
.To = "Beispiel@access.de"
.BodyFormat = olFormatHTML
.HTMLBody = "<html><body>Neue Bestellung! </body></html>"
.Send
End With

End Sub

Nun möchte ich gerne, dass die Daten die ich vor dem Speichern in das Formular eingeben habe als Anhang oder als Text in der Mail mit gesendet werden.

Ich habe zwar jede menge im Netz gefunden aber irgendwie funktioniert es bei mir nicht

Vielen Dank

DF6GL · November 29, 2016, 12:23:59

Hallo,

dann zeig halt mal den Code, der nicht funktioniert.....

Neuigkeiten:

Per VBA Automatische Mail mit Formular Daten versenden

timo

DF6GL