ich versende mit dem Code:
Sub send_mail_outlook(ama As String, abet As String, abody As String, amn As String)
Dim OutApp As Object, Mail As Object
Dim Nachricht
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ama
.Subject = abet
.Body = abody & amn
'Hier wird die Mail zuerst angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
'Variablen zurücksetzen sonst geht es nich
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
eine Mail.Nun habe ich das Problem, dass diese teilweise verschoben ankommt.
Kann ich irgendwo einstellen, dass ich die Mail als Text senden will oder
gibt es eine einfachere Möglichkeit eine Mail zu senden.
Muss aber Text und kein Anhang sein.
Danke Euch schonmal
VG
Steffen