Enviar mail
Hola, me gustaría saber como enviar mails con delphi, rellenando todos los campos del mail y adjuntando archivos. Grácias.
Respuesta de antipauli
1
You can use our IDSMail component to send Internet mail from Delphi 3.0.
Here is all the code you would need:
public
idsMail: Variant;
idsMail := CreateOLEObject('IDSMailInterface.Server');
idsMail.ObjectKey := 'ABC123';
idsMail.MailSystem := IDSM_SYS_SMTP_POP;
idsMail.SMTPServer := 'myprovider.com';
idsMail.NewMessage;
idsMail.From := MyName <[email protected]>;
idsMail.AddRecipientTo ('Jim Smith <[email protected]>');
idsMail.AddRecipientCc ('Mary Brown <[email protected]>');
idsMail.Subject := 'Meeting Agenda';
idsMail.Message := 'Here is the agenda for this weeks meeting';
idsMail.AddAttachment ('C:\MEETINGS\AGENDA.DOC');
idsMail.Send;
For more info on IDSMail, go to http://www.intuitive-data.com
Here is all the code you would need:
public
idsMail: Variant;
idsMail := CreateOLEObject('IDSMailInterface.Server');
idsMail.ObjectKey := 'ABC123';
idsMail.MailSystem := IDSM_SYS_SMTP_POP;
idsMail.SMTPServer := 'myprovider.com';
idsMail.NewMessage;
idsMail.From := MyName <[email protected]>;
idsMail.AddRecipientTo ('Jim Smith <[email protected]>');
idsMail.AddRecipientCc ('Mary Brown <[email protected]>');
idsMail.Subject := 'Meeting Agenda';
idsMail.Message := 'Here is the agenda for this weeks meeting';
idsMail.AddAttachment ('C:\MEETINGS\AGENDA.DOC');
idsMail.Send;
For more info on IDSMail, go to http://www.intuitive-data.com
