DELPHI COMANDO PER INVIARE MAIL

di il
1 risposte

DELPHI COMANDO PER INVIARE MAIL

Ho un programma interamente realizzato in Delphi 5 che utilizza un DataBase Access;
ho i sorgenti;
vorrei impostare sul form un comando (Button) che mi permetta di copiare 2 tabelle del DataBase access ed inviarle mezzo Mail ad un indirizzo preimpostato.
Esiste un modo?
Qualcuno può aiutarmi?
Le mie conoscenze sono quasi zero!
Grazie!!!

1 Risposte

  • Re: DELPHI COMANDO PER INVIARE MAIL

    Ciao, mi chiamo Lucas, sono brasiliano, scuzi mio male italian.

    Si, exist due forma di lavorare:

    1 - Prima - (NON Accept Attachement )
    ========================================================================
    Procedure ......
    var
    Mail : String;
    begin
    Mail := 'mailto:'+CDS_CLIENTESMAIL.AsString+'?Subject=Informe o Assunto da Mensagem...&Body=Digite o Corpo da Mensagem...';
    ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal);
    End;


    2 - Seconda - (Accept Attachement )
    =========================================================================
    Procedure ...
    var
    Outlook: OleVariant;
    vMailItem: variant;
    Mail : String;
    begin
    OpenDialog1.Execute;
    try
    Outlook := GetActiveOleObject('Outlook.Application');
    except
    Outlook := CreateOleObject('Outlook.Application');
    end;
    vMailItem := Outlook.CreateItem(olMailItem);
    vMailItem.Recipients.Add(CDS_ClientesEMAIL.AsString); // 1o destinatário
    vMailItem.Subject := 'Tuo Subject '; // assunto
    vMailItem.Body := 'Segue em anexo o Arquivo com a Tabela de Preços'; // Corpo do e-mail
    vMailItem.Attachments.Add(OpenDialog1.FileName); // arquivo anexado
    vMailItem.Send;

    VarClear(Outlook);
    End;


    Grazie
    Lucas di Brasile
    Skype: Lucas_Fernando_Franca
    MSN:
Devi accedere o registrarti per scrivere nel forum
1 risposte