Mailer
07.02.2003 15:11:39
Tim
Die Aktuelle Datei soll als Attachment in die Mail, der Empfänger ist Vordefiniert und wird im Outlook Adressbuch gefunden (Verteilerliste) und die Message der Mail ist auch vordefiniert.
Mit der RoutingSlip Methode hab ich das fast geschafft, aber da ist die Message auf 256 Zeichen begrenzt und das ist zu kurz, Mit Application.Dialogs(xlDialogSendMail).Show bekomme ich keine Message in den Body und mit
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Dim objAtt As Attachment
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Adressat
.Subject = "Automated Mail Response"
.Body = "Message"
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
gehen mehr als 256 Zeichen, aber ich kriege das Attachment nicht mehr rein. Kann mir jemand weiter helfen?