E-Mail mit Delphi 5.0 Standart versenden?

[Elmar Herzog]

Hallo, <P>
ich habe leider nur die Delphi 5.0 Standartversion. Ich möchte ein Programm schreiben, indem der Anwender einige Angaben ausfüllt (z. B.: Name, Straße, Email usw.) und diese dann (beim drücken eines Buttons) an meine Email-Adresse (selbststädig) sendet (wenn möglich als Dateianhang). Ist das mit dieser Version möglich? Und wenn ja wie?

[Christian2 Werlich]

Hier folgende Möglichkeit:
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;

Allerdings muss man die Outlook_TLB ( und gleichnamiges Programm) habe

[Gast_1]

Hallo !
Mich würde das auch sehr interessieren ! Vorallem, das eine Mail geschickt wird, ohne das ein Anwender was davon bemerkt.
Hast Du schon eine Lösung, Elmar ? (ohne Active-X)
Machts gut und schöne Grüße

[Elmar Herzog]

Hallo,

Stop! Ich hatte auf diese Frage bereits eine Antwort! Sind da beim letzten Serverabsturz doch ein paar Daten verlorengegangen? Ich suche die Lösung mal raus, kann aber ein paar Tage dauern..

[Gast_1]

Danke Elmar !
Das ist sehr nett von Dir !
Machs gut und bis denne )

[Mario.Noack]

Hallo,<p>
schaut mal auf http://sak.org.ar<br>
Das gibt's SakEMail. Freeware für Delphi mit Source und meiner Meinung nach sehr gut. Ich habe aber D5 C/S und weiß nicht, ob es da unter D5 Standart auch geht. Aber einen Versuch ist es wert.<p>
Grüße, Mario Noac

[Elmar Herzog]

Hallo,<p> verdammt, ich habe die Lösung gefunden, aber dann, als ich den Datenträger eingelegt habe um loszulegen, hat dieser unwiderruflich den Geist aufgeben. Wer immer mir die Lösung damals geschrieben hat, vielleicht könntest Du sie nochmals hier ins Forum stellen. Danke