VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Kirsten	Datum: 13.08.2007 08:14:52	Views: 1772	Rating:	Antwort:
Thema: Email an Outlook schicken
Mit diesem Code ich ja Emails verschicken: Dim olApp As Object Dim oItem As Object Set olApp = CreateObject("Outlook.Application") Set oItem = olApp.CreateItem(0) With oItem .Subject = "Betreff-Zeile" .To = "xxxxx@xxxxx.com" .Body = "Gerät: " & ActiveCell.Offset(0, 10) & " von Praxis " & ActiveCell.Offset(0, 4) & "bei Firma " & ActiveCell.Offset(0, 5) & " zur Reparatur--> Nachfrage!" '.Subjekt wird als Betreff im Outlook angegeben .Send End With Ich möchte das die Email den Empfänger erst Tage später erreicht. Gruß Kirsten

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen