![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Enviar un mail - metodo eficaz
Con este truco puedes enviar mails de manera facil y sin problemas. Añadir ComObj a los uses.
Código:
procedure TMailer.Button5Click(Sender: TObject); var Mail: Variant; ArchivoAdjunto: boolean; begin Mail:= CreateOleObject('CDO.Message');// no esta en W xp Mail.From:= edit1.text; //mail remitente Mail.Subject:= edit3.text; //asunto Mail.TextBody:= memo1.Text; //contenido del mail Mail.To:= edit2.text; //mail receptor If ArchivoAdjunto=true then begin Mail.AddAttachment(edit4.text); //añadir un archivoadjunto end; Mail.Send; //enviar Mail:= Unassigned; end; Salu2 |
|
|
![]() |
|