Enviar E-mail

[Felipe - Iniciante-Delphi]

Bom Dia,

Bom galera, tenho um programa, onde está cadastrado os funcionarios de minha empresa e em um dos campos, tem a data de nascimento deles.

Bom, o que eu queria, era que meu programa enviasse e-mail para o funcionario no dia do aniversario dele, espero que alguém possa me dar uma ajuda quanto a isso.

Fico no aguardo,

Obrigado!

[danielrgoes]

Bom Dia,

Bom galera, tenho um programa, onde está cadastrado os funcionarios de minha empresa e em um dos campos, tem a data de nascimento deles.

Bom, o que eu queria, era que meu programa enviasse e-mail para o funcionario no dia do aniversario dele, espero que alguém possa me dar uma ajuda quanto a isso.

Fico no aguardo,

Obrigado!

Ok mais precisamos de mais informaçoes

do tipo vai enviar pelo Correio eletronico

se sim qual?

MS outlook ou outlook express

ou vai enviar direto por SMTP ?

[Felipe - Iniciante-Delphi]

Enviar via MS OutLook

;]

[danielrgoes]

Enviar via MS OutLook

;]

Ta na Mão Cara

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
olMailItem = 0;

implementation
uses comobj, olectrls;


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add('fulando@mundo.com.br'); // 1o destinatário
vMailItem.Recipients.Add('ciclano@mundo.com.br'); // 2o destinatário
vMailItem.Subject := 'teste de email'; // assunto
vMailItem.Body := 'Este é um teste'; // Corpo do
e-mail
vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo
anexado
vMailItem.Send;

VarClear(Outlook);
end;