Enviar email com o Outlook Express

[danielrgoes]

Bom Dia Pessoal

eu utilizo o seguinte codigo para enviar email pelo outlook 2000

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;

porem agora eu quero chamar o Nova Messagem do outlook express com o anexo alguém tem alguma ideia

muito obrigado pe atenção

[António44]

Acrescente em Uses Shellapi.

unit Autores;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, TFlatSpeedButtonUnit,shellapi, GIFButton,
  Animate, GIFCtrl, RxGrdCpt, yupack;


procedure TAutor.Label3Click(Sender: TObject);
begin
shellexecute(Handle,'open','mailto:abotinas@sapo.pt ?subject= EMAIL DE TESTE',nil,'',SW_SHOWNORMAL);
end;

Abraço.

Editado Março 18, 2009 por António44

[danielrgoes]

Acrescente em Uses Shellapi.

unit Autores;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, TFlatSpeedButtonUnit,shellapi, GIFButton,
  Animate, GIFCtrl, RxGrdCpt, yupack;


procedure TAutor.Label3Click(Sender: TObject);
begin
shellexecute(Handle,'open','mailto:abotinas@sapo.pt ?subject= EMAIL DE TESTE',nil,'',SW_SHOWNORMAL);
end;

Abraço.

td bem mais como eu faço pra i com um anexo já

[Jhonas]

td bem mais como eu faço pra i com um anexo já

Voce entendeu esta parte do código ?

vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado

Onde está 'C:\temp\arq.txt' é o caminho do seu arquivo que vai anexado ao email

abraço

[danielrgoes]

td bem mais como eu faço pra i com um anexo já

Voce entendeu esta parte do código ?

vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado

Onde está 'C:\temp\arq.txt' é o caminho do seu arquivo que vai anexado ao email

abraço

é para o outlook 2000 eu uso assim

mais não da para o outlook express ess comando

vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado

eu to usando o comando postado aki pelo amigo acima

ate funciona apre o nova mensagem certinho

mais não tem como eu já coloca o anexo

[Jhonas]

eu to usando o comando postado aki pelo amigo acima

ate funciona apre o nova mensagem certinho

mais não tem como eu já coloca o anexo

é porque o word foi aberto como editor de email, e neste caso voce é que tem que adicionar o anexo

veja este exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
   montarEmail : String;
begin
   IF OpenDialog1.Execute THEN
      BEGIN
         montarEmail := 'mailto:abotinas@sapo.pt ?cc=Fulano@bol.com.br'
         + '&subject=Assunto do email '
         + '&body=Texto da Mensagem '
         + '&MessageParts='+ OpenDialog1.FileName; // Anexar arquivo

         ShellExecute( handle,'open' ,PChar(montarEmail), '','',SW_SHOWNORMAL );
      END;

end;

O arquivo para ser anexado deveria ser lido ( tamanho ) mas o shellExecute não consegue fazer isto

Existem outras opções:

http://www.devmedia.com.br/articles/viewcomp.asp?comp=1195

http://www.forumweb.com.br/foruns/lofivers...php/t25669.html

http://www.faqts.com/knowledge_base/view.p...d/23223/fid/175

abraço