Hallo zusammen,
ich möchte gerne eine Automatische Mail versenden sobald ein Formular gespeichert wird.
Dies ist auch kein Problem mit folgendem Code:
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
Hallo,
dann zeig halt mal den Code, der nicht funktioniert.....