** email no microsoft outlook **
Gente, alguem sabe como ativar o microsoft outlook no windows 98 via programa com o shellexecute ?
OBS. não é o outlook express, este funciona normal. Mas o microsoft outlook no win98 não abre a pasta de mensagens p/enviar já preenchida o PARA. Porque isso ?.
OBS. não é o outlook express, este funciona normal. Mas o microsoft outlook no win98 não abre a pasta de mensagens p/enviar já preenchida o PARA. Porque isso ?.
Jorge
Curtidas 0
Respostas
Cleiflavio
06/10/2003
Cara não sei se é isso que vc precisa mas tenta esse que envia o email pelo Microsoft outlook
var
Form1: TForm1;
const
olMailItem = 0;
implementation
uses comobj, olectrls ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: OleVariant;
vMailItem: variant;
mail: String;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
//mail := email.text;
vMailItem.Recipients.Add(fulano@fulano.com.br); // 1 destinatário para o email
vMailItem.Subject := ´fazendo TESTE´; // assunto do email
vMailItem.Body := ´ texto que vai no corpo do email´; // Corpo do e-mail
vMailItem.Send;
//VarClear(Outlook);
end;
espero ter ajudado
var
Form1: TForm1;
const
olMailItem = 0;
implementation
uses comobj, olectrls ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: OleVariant;
vMailItem: variant;
mail: String;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
//mail := email.text;
vMailItem.Recipients.Add(fulano@fulano.com.br); // 1 destinatário para o email
vMailItem.Subject := ´fazendo TESTE´; // assunto do email
vMailItem.Body := ´ texto que vai no corpo do email´; // Corpo do e-mail
vMailItem.Send;
//VarClear(Outlook);
end;
espero ter ajudado
GOSTEI 0