Fórum ** email no microsoft outlook ** #186548
06/10/2003
0
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
Curtir tópico
+ 0
Responder
Posts
02/07/2008
Cleiflavio
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)