Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
sendmail
26.09.2003 12:39:41
jhaustein
hallo gemeinschaft

habe zwar schon viel gestöbert aber nichts richtiges gefunden- ich möchte mit sendmail eine mail versenden - leider geht das nur, dass ich das workbook versende - will ich aber nicht sondern nur einen text der nicht als anhang versendet wird, sondern direkt in der mail ist (body) geht das überhaupt ?

gruss
jörg
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
leider suche ich etwas anderes
26.09.2003 14:56:50
jhaustein
hi leider geht das nur mit outlook und nicht mit outlook express

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige