Newsgroup: it.comp.lang.delphi
Titolo: Come inviare e-mail??????

Buongiorno a tutti,non ho molta esperienza con delphi,e non ho usato
quasi mai i gruppi di google,x cui è probabile che ho sbagiato
sezione.........
Cmq  ho 1 problema....ho sviluppato un programmino con D7 che funge da
rubrica.Si possono ricercare nomi,numeri,ecc...ora pero,avrei
l'esigenza di inviare anche le e-mail.
mi spiego meglio...una volta trovato un nominativo,dovrei avere un
"bottone"per richiamare l'Outlook ed inviare una mail all'indirizzo
corrispondente del  nome trovato.ovviamente l'indirizzo del
destinatario deve gia essere presente all'avvio di outlook...
Qualcuno sa darmi qualche dritta?????????
Grazie....
Emanuele

ShellExecute(0, NIL, 'mailto:
indi...@provider.ext
', NIL, NIL, 0);

[...]l'esigenza di inviare anche le e-mail.
http://www.google.it/search?hl=it&q=Delphi+MAPI&btnG=Cerca+con+Google&meta=
http://groups.google.it/groups?hl=it&q=Delphi%20MAPI&btnG=Cerca+con+Google&sa=N&tab=ig

 ShellExecute(0, NIL, 'mailto:
indi...@provider.ext
', NIL, NIL, 0);
Innanzitutto grazie...Scusa la mia ignoranza ma ho capito ben poco....
potresti spiegarmi questa istruzione in modo piu dettagliato??????A
prova di deficente......
Grazie e scusa.......

potresti spiegarmi questa istruzione in modo piu dettagliato??????
Si tratta di usare il protocollo "mailto":
http://www.google.it/search?hl=it&q=mailto+protocol+Delphi&btnG=Cerca&meta=
Bada che questa tecnica non va bene se hai intenzione di spedire
allegati.

 ha scritto nel messaggio 
news:1141293836.7...@i40g2000cwc.googlegroups.com...


function SendEMail(Destination,Subject,Body:widestring):boolean;
E' sicuramente meglio, come già detto, usare le MAPI, perché si
affidano al mailer predefinito del sistema, che potrebbe anche non
essere OE.

>function SendEMail(Destination,Subject,Body:widestring):boolean;
Se posso suggerirti una cosa usa questo codice, funziona ed è ottimo.
unit uInivaMail;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 
Forms,
  Dialogs, StdCtrls, Mapi, dxCntner, dxEditor, dxExEdtr, dxEdLib;
type
  TfInviaMail = class(TForm)
    Label1: TLabel;
    bInvia: TButton;
    eOggetto: TEdit;
    eIndirizzo: TEdit;
    Label2: TLabel;
    eBody: TdxMemo;
    Label3: TLabel;
    Label4: TLabel;
    eAllegato: TEdit;
    bAllega: TButton;
    OpenDialog1: TOpenDialog;
    cbAnteprima: TCheckBox;
    procedure bInviaClick(Sender: TObject);
    procedure OpenDialog1CanClose(Sender: TObject; var CanClose: 
Boolean);
    procedure bAllegaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  fInviaMail: TfInviaMail;
implementation
uses SendMail;
{$R *.dfm}
procedure TfInviaMail.bInviaClick(Sender: TObject);
begin
  with TMAPIMail.Create(Self) do
      try
        Subject := eOggetto.Text;
        Body := eBody.Text;
        Recipients.Add(eIndirizzo.Text);
        Attachments.Add(eAllegato.Text);
        if cbAnteprima.Checked then
        begin
          EditDialog := True; //Mostra il messaggio come outlook express 
                                lo invia
        end;
        if not cbAnteprima.Checked then
        begin
          EditDialog := False; //Invia direttamente il messaggio senza 
                                 aprire outlook express
        end;
        Send
      finally
        Free
      end;
      eOggetto.Clear;
      eBody.Clear;
      eAllegato.Clear;
      eIndirizzo.Clear;
end;
procedure TfInviaMail.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
  eAllegato.Text:=OpenDialog1.FileName;
end;
procedure TfInviaMail.bAllegaClick(Sender: TObject);
begin
  OpenDialog1.Execute;
end;
end.
la unit SendMail la trovi a questo indirizzo  
http://www.scalabium.com/mapimail.htm
ma il vantaggio è che è freeware.
A me ha risolto ogni problema.
Grazie dell'attenzione.
A presto.
 
Massimiliano Monti
Cellulare: 0039 - 335 - 8477278
Mail: 
massimili...@matia.it
--- posted by geoForum on 
http://www.delphiedintorni.it