AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi eMail über Standard-Mail-Programm verschicken

eMail über Standard-Mail-Programm verschicken

Ein Thema von benst · begonnen am 14. Mär 2006 · letzter Beitrag vom 16. Mär 2006
Antwort Antwort
Seite 1 von 2  1 2   
benst

Registriert seit: 20. Jun 2004
155 Beiträge
 
Delphi 5 Standard
 
#1

eMail über Standard-Mail-Programm verschicken

  Alt 14. Mär 2006, 22:55
Hi,

wie kann eine eMail über das Standard-Mail-Programm schicken (z.B. Outlook)?
Sprich... ich habe Felder für Empfänder und Betreff und ein Memo für die Nachricht, beim Betätigen von Button wird Mail verschickt, sprich es erscheint eine Mail im Postausgang von z.B. Outlook.
Danke

Gruß
Ben
_____________________________
Delphi 5 Standard, Win XP
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 07:11
Hallo Ben,

im Object Repository (Objektgalerie) findest du die Win95-Logo-Anwendung. Diese enthält schon den Code zum Versenden einer Nachricht über das Simple Mail API.

Grüße vom marabu
  Mit Zitat antworten Zitat
benst

Registriert seit: 20. Jun 2004
155 Beiträge
 
Delphi 5 Standard
 
#3

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 10:59
Hi,
Zitat:
im Object Repository (Objektgalerie) findest du die Win95-Logo-Anwendung. Diese enthält schon den Code zum Versenden einer Nachricht über das Simple Mail API.
Die Win95-Logo-Anwendung habe ich leider nicht gefunden. Ich habe nur über Outlook E-Mail verschicken gefunden.
Das ist schon ganz gut, aber ich möchte, dass die Mail sofort in den Postausgang gelangt und mir nicht erst einmal angezeigt wird.

Gruß
Ben
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#4

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 11:06
Delphi-Quellcode:
with IdMessage1 do
 begin
 Body.Assign(MemoEMailtext.Lines);
 Recipients.Add.Address:=EmpfaengerEMail;

 from.Address:=Absenderadresse;
 Subject:=Betreff;
 end;
with IdSMTP1 do
 begin
 Username:=benutzername;
 Password:=Passwort;
 Host:=HostIP;
 Connect;
 for i:= 0 to Pred(LBAnhaenge.Items.Count) do
  TIdAttachmentFile.Create(IdMessage1.MessageParts,LBAnhaenge.Items.Strings[i]);
 Send(IdMessage1);
 Disconnect;
 end;
Versuch das mal
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#5

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 11:29
@Angel

Er möchte über MAPI und das Standard-Programm schicken, nicht direkt per SMTP...
  Mit Zitat antworten Zitat
Benutzerbild von TeronG
TeronG

Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
 
Delphi 2007 Professional
 
#6

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 11:49
Zitat von mquadrat:
Er möchte über MAPI und das Standard-Programm schicken, nicht direkt per SMTP...
In der Code-Lib gibt es ein Beispiel zu MAPIMAPI

EDIT/ADD:
Das Ding lag bei mir noch so rum (müsste eigentlich funtzen ^^)
Delphi-Quellcode:
function TG_MailVersenden(eMail,Betreff,Mailtext:String;anhang:string='') : Integer;
var
  s: String;
begin
  s := 'mailto:'+eMail+'?Subject='+Betreff+'&Body='+Mailtext;
  if Anhang <> 'then s:=s+'&Attach=""'+Anhang+'""';

  result := ShellExecute(Application.Handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
end;
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
  Mit Zitat antworten Zitat
benst

Registriert seit: 20. Jun 2004
155 Beiträge
 
Delphi 5 Standard
 
#7

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 18:55
Zitat:
Das Ding lag bei mir noch so rum (müsste eigentlich funtzen ^^)
Das ist sehr schön. Bis auf den Anhang funst das bei mir auch, aber das Problem ist geblieben. Die erstellte eMail öffnet sich und wird nicht abgesendet. Ich wollte einen kleinen Serienmailer schreiben, da kann ich ja nicht jedes mal 20mal auf absenden drücken...
Hat jemand ne Idee, wie ich das beheben kann?
Gruß
Ben
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#8

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 19:09
Hi Ben,

zum Thema Extended MAPI sollte es inzwischen mehrere threads in der DP geben.

marabu
  Mit Zitat antworten Zitat
Benutzerbild von R2D2
R2D2

Registriert seit: 20. Jan 2006
Ort: München
253 Beiträge
 
Delphi 2005 Personal
 
#9

Re: eMail über Standard-Mail-Programm verschicken

  Alt 15. Mär 2006, 20:01
Ich mache das immer so:
 ShellExecute(Application.Handle, 'open', PChar(Param), nil, nil, SW_SHOWNORMAL); wobei Param z. B.
Zitat:
mailto:Addresse@hoster.de
enthält.
  Mit Zitat antworten Zitat
benst

Registriert seit: 20. Jun 2004
155 Beiträge
 
Delphi 5 Standard
 
#10

Re: eMail über Standard-Mail-Programm verschicken

  Alt 16. Mär 2006, 09:07
@TeronG:
Weißt du wie ich bei deiner Variante es so machen kann, dass das mit den Anhängen funktioniert?
Bei mir funktioniert es nämlich nicht. (Ich habe 'c:\a.txt' als Parameter angegeben, ist das falsch?)

Gruß
Ben
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz