Ir para conteúdo
Fórum Script Brasil
  • 0

Enviar email com o Outlook Express


danielrgoes

Pergunta

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

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

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 por António44
Link para o comentário
Compartilhar em outros sites

  • 0
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á

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...