Ola,
estou tentando enviar e-mail automaticamente pela minha aplicacao para o
Outlook Express mas quem acaba enviando o e-mail é o Microsoft Outlook.
O que eu estou fazendo é um exemplo que peguei na RamosdaInformatica e esta
em anexo.
Só preciso descobrir como chamar o Outlook Express ao inves do Microsoft
Outlook. Ja aviso que que é o padrão é o EXPRESS.
Desde ja agradeço.
________________________
Henrique Dejoss Bordinhao
Actix Cons. Sistemas
----------
http://www.ramosdainformatica.com.br/art_recentes01.php?CDA=22
Questão/Problema:
Enviar e-mail pelo Delphi utilizando o Outlook
Resposta:
unit UTstMail;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
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('[EMAIL PROTECTED]'); // 1o destinatário
vMailItem.Recipients.Add('[EMAIL PROTECTED]'); // 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;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
