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 ?.


Jorge

Jorge

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar