Announcement

**Andreas Kosch** · 21.12.1999, 08:01

Hallo,

das folgende Beispiel verschickt �ber Outlook 97 eine eMail:
<pre>
uses ComObj, Outlook_TLB;

var
dwStart, dwEnd : DWord; // Ausf�hrungszeit stoppen

{ Aufgabe 1: eMail verschicken }

procedure TFormMain.BitBtnMailClick(Sender: TObject);
var
aOutlook : Application_;
aMAPI : NameSpace;
aOutbox : MAPIFolder;
aMail : MailItem;
aReci : Recipient;
begin
StatusBar1.SimpleText := 'eMail wird �ber Outlook verschickt...';
dwStart := GetTickCount;
Screen.Cursor := crHourglass;
aOutLook := CoApplication_.Create;
try
aMAPI := aOutlook.GetNameSpace('MAPI');
aOutbox := aMAPI.GetDefaultFolder(olFolderOutbox);
aMail := aOutbox.Items.Add(olMailItem) as MailItem;
aReci := aMail.Recipients.Add(EditMailAddress.Text);
aReci.Type_ := olTo;
// Empf�nger pr�fen (falls nicht bekannt -> Exception)
aReci.Resolve;
aMail.Subject := EditMailSubject.Text;
aMail.Body := MemoMailBody.Text;
// eMail senden
aMail.Send;
finally
aOutlook := nil;
Screen.Cursor := crDefault;
end;
dwEnd := GetTickCount;
StatusBar1.SimpleText := Format('Ausf�hrungszeit: %d Windows-Ticks',
[dwEnd - dwStart]);
end;
</pre>

P.S: Das Beispiel stammt aus meinem Buch COM/DCOM mit Delphi

**h b** · 27.12.1999, 13:31

Hallo Andreas, 
vielen Dank f�r deinen Vorschlag. 

Allerdings suche ich nach einer "einfachen" Methode, bei der ich nicht noch tonnenweise COM-Ballast 
in meine "schlanke" Anwendung integrieren muss. Bislang verwende ich eine Freeware-POP3 Komponente. 

Bei dem Versenden einer Nachricht an Outlook habe ich eher an einen Programm-Aufruf gedacht, bei dem 
mittels Parametern die erforderlichen Daten �bergeben werden. 
So ist es z.B. f�r mich (und den Kunden) v�llig unerheblich, ob eine Adresse IN OUTLOOK schon eingetragen 
ist - denn die wird ja aus der Adress-Datenbank gelesen und soll �bergeben werden. 

Vielleicht gibt es ja doch noch einen einfachen Weg hierf�r?! 
PS: im �brigen wird mit Delphi4 keine Komponente "Outlook_TLB" aufgeliefert.>br>
Ich programmiere ja gerade NICHT mit dem Visual Studio ...

Mit den besten Gr��en 
Helmut B�cker 
[email protected]

**Andreas Kosch** · 28.12.1999, 07:55

Hallo,

die Pr�fung der Empf�ngeradresse in Outlook �ber Resolve ist optional, auf diesem Weg kann jede beliebige (aber der Syntax entsprechende) Adresse angegeben werden. Das Beispiel stammt aus einer mit Delphi 4 entwickelten Anwendung - die in der Uses-Klausel eingebundene Unit Outlook_TLB ist die beim Import der Typbibliothek von Delphi automatisch erzeugte Unit. Die ab Delphi 5 zur Verf�gung stehenden Wrapper-Komponenten (TOleServer-Nachfolger) sind nicht notwendig

**G�nther Weber** · 30.01.2000, 18:11

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>

<body bgcolor="#FFFFFF">

Hallo Helmut, man kann eMails auch via ShellExecute versenden.
Allerdings ist es mir nicht bekannt, wie man dabei eine oder
mehrere Dateien als Anlage anh�ngen kann. Aber vielleicht
brauchst Du ja keine Anlagen. Der Code, den ich mir in der Firma
(Outlook98) erarbeitet habe, funktioniert aber nicht bei mir
zuhause (Outlook Express), dort wird nur die Adresse und der
Betreff ausgef�llt. Ist also noch nicht das gelbe vom Ei.

<pre>
void EmailViaShellExecute(void)
{
char Text[120];
strcpy(Text,"mailto:[email protected]&quot

;
strcat(Text,"?subject=EmailTest&quot

;
strcat(Text,"?body=&quot

;
strcat(Text,"erste Zeile&quot

;
strcat(Text,"%0D%0A&quot

;
strcat(Text,"zweite Zeile&quot

;
ShellExecute(hMainWnd,"open",Text,0,0,SW _SHOWNORMAL);
}
</pre>

Nachlesen kannst Du unter <a
href="ftp://ftp.isi.edu/in-notes/rfc2368.txt">ftp://ftp.isi.edu/in-notes/rfc2368.txt</a>
und <a
href="http://msdn.microsoft.com/workshop/networking/predefined/mailto.asp">http://msdn.microsoft.com/workshop/networking/predefined/mailto.asp</a>

Gru�: G�nther 

</body>
</html&gt

Announcement

eMails an Outlook von Delphi4

eMails an Outlook von Delphi4

Comment

Comment

Comment

Comment