Enviar e-mail atrav�s do Outlook (Delphi5)

Question

:cry: Amigos, preciso urgentemente controlar o envio de e-mais atrav�s do outlook, passando email detinatario e + de um arquivo atachado.O outlook dever� ser aberto em tela e o usu�rio decidir� se man...

Max_ribeiro · Answer

Companheiro, tenho esse comando de chamada de e-mail pelo outlook, n�o sei se vai resolver o seu problema, pois n�o sei como fazer para anexar arquivos ou at� mesmo escrever o corpo do e-mail. Fazendo isso pelos componentes do Delphi � bem mais simples.

ShellExecute(GetDesktopWindow,�open�,pchar(�mailto:email@email.com.br�),nil,nil,sw_ShowNormal);

Para esse comando funcionar, informe ShellAPI na cl�usula USES.

Jurandi · Answer

Ai vai.Como enviar um e-mail usando sua conta padr�o do Outlook?varForm1: TForm1;constolMailItem = 0;implementationuses comobj, olectrls;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);varOutlook: OleVariant;vMailItem: variant;begintryOutlook := GetActiveOleObject(�Outlook.Application�);exceptOutlook := CreateOleObject(�Outlook.Application�);end;vMailItem := Outlook.CreateItem(olMailItem);vMailItem.Recipients.Add(�fulano@mundo.com.br�); // 1o Destin.vMailItem.Recipients.Add(�ciclano@mundo.com.br�); // 2o Destin.vMailItem.Subject := �teste de email�; // assuntovMailItem.Body := �Isto � um teste�; // corpovMailItem.Attachments.Add(�C:temparquivo.db�); // arq anexovMailItem.Send;VarClear(Outlook);end;...

Anonymous · Answer

Mas precisa ter o Microsoft outlook instalado certo?somente tendo o outlook express n�o funciona certo?????...

Anonymous · Answer

Amigo, muito obrigado. Era isso mesmo que eu estava precisando!

Ai vai. Como enviar um e-mail usando sua conta padr�o do Outlook? 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(�fulano@mundo.com.br�); // 1o Destin. vMailItem.Recipients.Add(�ciclano@mundo.com.br�); // 2o Destin. vMailItem.Subject := �teste de email�; // assunto vMailItem.Body := �Isto � um teste�; // corpo vMailItem.Attachments.Add(�C:\temp\arquivo.db�); // arq anexo vMailItem.Send; VarClear(Outlook); end;