e-Mail aus Prg heraus versenden

[kalmi01]

Hi,

da in letzter Zeit häufiger mal fragen gestellt wurden, wie:

Zitat:

Wie kann ich aus meinem Prog eine eMail versenden ?

oder

Zitat:

Wie Mail versenden ohne Outlook ?

Deshalb hier mal eine kleine Unit, die auf INDY basierend Mails inkl. Anhang aus dem eigenen Prog per SMTP versendet.

[Meflin]

Wäre das nicht in der CodeLib besser aufgehoben?

[alzaimar]

Oder so (ohne INDY):

Delphi-Quellcode:

Function UrlEncode (Const s : String) : String;
Var
  i : Integer;

Begin
  Result := '';
  For i:=1 To length (s) do
    If ord (s[i]) in [33..127] then
      Result := Result+s[i]
    Else
      Result := Result+'%'+IntToHex (Ord(s[i]),2);
End;

Procedure SendMailViaStandardEMailClient (aRecipients, aSubject, aBody, aAttachment);
Var
  aMailCmd : String;

Begin
  aMailCmd := 'mailto:'+aRecipients + '?subject='+aSubject;
  if aBody <>'' Then 
    aMailCmd := aMailCmd + '&body='+aBody;
  If aAttachments <>'' Then 
    aMailCmd := aMailCmd + '&attach="' + aAttachment +'"';
  aMailCmd := UrlEncode (aMailCmd);
  ShellExecute (Application.Handle,'OPEN', PChar (aMailCmd), nil, nil, SW_SHOWDEFAULT);
End;

Vorteil: INDY wird nicht benötigt.
Nachteil: Klappt nicht mit allen email clients. Lotus z.B. öffnet nur den Dialog zum Verfassen einer mail.

Alternativ zu Indy kann man auch die ICS Kompoenten von Francois Piette (www.overbyte.de) nehmen. Die sind Freeware, mit Source und seit Jahren weltweit im Einsatz (also stabil).

[RonnyKIEL]

Hi, aber www.overbyte.de ist offline.
Bekomme ich jedenfalls angezeigt
Gruss, Ronny

[bigg]

ihr meint bestimmt:
http://www.overbyte.be

[kalmi01]

Moin, moin, alzaimar,

Deine Variante ist nett, eignet sich aber nicht zum Versand von eMail's, ohne das der Anwender etwas tun muß bzw. etwas mitbekommt.
Bevor jetzt jemand nach dem Datenschutz schreit, ich verwende soetwas, um von meinen Prog's Fehlermeldungen/Screenshot/Fehlerdateien zu bekommen.
Davon brauch der Anwender nichts wissen, es reicht vollkommen, wenn er mich anruft und ich ihm sagen kann, wo das Problem liegt und das bereits ein Update für Ihn bereit steht.
(Eindruck-Schind)

Zitat:

www.overbyte.be

sieht ja ganz nett aus, iss aber auch nicht ganz billig.
Oder hab ich da was übersehen ?

[doom98]

Mailhost muss ich dort einen angeben? bzw welchen? Oder besser gefragt wo finde ich solche freien SMTP Server?

[jfheins]

Nun, du musst dies E-Mail halt bei irgendeinem SMTP-Server abladen ...
Vielleicht bietet dein Provider ja soetwas an ...

Normalerweise hast du aber schon bei deine E-Mail-Adresse enen dabei, damit du E-Mails senden kannst.

[alzaimar]

@Alle: Wegen des Tippfehlers (www.overbyte.de) Ich habe mich eben selbst ausgepeitscht. Muss natürlich '...be' heissen.

@Kalmi01: Wat? Kostet wat? Seit wann denn das? Check ich mal.... Stimmt nicht, ist Freeware. Steht auf der Homepage. Download geht auch. Aber die Applikation IMD (Instant Messaging Delphi) kostet was. Vielleicht hast Du das verwechselt.

Meine Variante ist wirklich nicht absolut tauglich, zeigt aber, wie leicht man es sich machen kann. Soweit ich mich erinnere, reagiert Outlook und OutlookExpress ordendlich auf das mailto und unterstützt alle Features, ich meine, mit irgend einer Option schicken die das gleich weg, aber wer benutzt schon Outlook (ausser er ist suizidal angehaucht ).

Also: Falls INDY nicht überall verfügbar ist, sollte man die ICS-Komponenten nehmen (meine Meinung).

[stonimahoni]

hi leute...

habe mir mal grade die komponente von kalmi01 angeeignet und ausprobiert...allerdings erhalte ich folgenden fehler : Socketfehler # 10053
die software hat die verbindung unterbrochen

kann mir einer sagen was das bedeutet?

thx im vorraus.


mfg

stoni