AW: sendmail
26.09.2003 14:46:16
Kobra
Hallo das geht ungefär so
'Versuch eine Email an einen bestimmten Adressaten zu versenden
Dim EmailEmpfänger As String, EmailBetreff As String
Dim EmailMsg As String
Dim ZeileNr As Integer
'Outlook wird geöffnet
Set myOlApp = CreateObject("Outlook.Application")
'Fenster für neue Mail wird geöffnet
Set MailItem = myOlApp.CreateItem(olMailItem) ' opens new email
On Error GoTo ErrorHandler
'Emailadresse
EmailEmpfänger = "Name@web.de"
'Betreff der Nachricht
EmailBetreff = "Änderung Datei"
'Aufbau der Nachricht
EmailMsg = "Hallo Markus," & vbCrLf
EmailMsg = EmailMsg & "Achtung folgender Tag war nicht vorhanden:" & vbCrLf
'Namen hinzufügen
EmailMsg = EmailMsg & "Gruss Excel"
'Empfänger der Mail wird in das Adressfeld "An:" geschrieben
Set myRecipient = MailItem.Recipients.Add(EmailEmpfänger)
'Betreff der Mail wird in das Feld "Betreff:" geschrieben
MailItem.Subject = EmailBetreff
'Der Text der Nachricht wird übertragen
MailItem.Body = EmailMsg
'Wenn Anlage angehängt werden soll, in nächster Zeile
'das Apostroph entfernen.
'Set myAttachments = MailItem.Attachments.Add("Pfad&Dateiname")
MailItem.Send 'Email wird gesendet
Gruss
Markus