Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: e-Mail senden über Outlook mit Rückmeldung
Autor: gegege
Datum: 15.06.03 22:52
Versuchs mal so   Function mail() Dim objOutlook As Variant Dim objInspector As Variant dim objMail As Object dim objAttachments As Variant Set objOutlook = CreateObject("Outlook.Application.8") Set objMail = objOutlook.CreateItem(0) Set objAttachments = objMail.Attachments objMail.Subject = "Testmail" 'Text in Zeile Betreff: objMail.To = test@test.at 'Mailadresse objMail.Body = "Test" 'Text objAttachments.Add "c:\temp\temp.xls" 'Anhang objMail.send 'Mail sofort versenden Set objOutlook = Nothing 'Objectvariablen löschen Set objMail = Nothing End Function   Einen Nachteil hat die Funktion leider Die Version von Outlook muß bekannt bzw. eingestellt werden Den Verweis object library nicht vergessen Gruß sommer

e-Mail senden über Outlook mit Rückmeldung	148	Hannes	15.06.03 16:49
Re: e-Mail senden über Outlook mit Rückmeldung	602	Dieter	15.06.03 17:45
Re: e-Mail senden über Outlook mit Rückmeldung	77	Hannes	15.06.03 18:12
Re: e-Mail senden über Outlook mit Rückmeldung	670	Dieter	15.06.03 20:14
Re: e-Mail senden über Outlook mit Rückmeldung	58	gegege	15.06.03 22:52
Re: e-Mail senden über Outlook mit Rückmeldung	66	Striper	17.06.03 11:30
Re: e-Mail senden über Outlook mit Rückmeldung	83	Striper	17.06.03 11:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen