Delphi 7 - não consegui encontrar ex. p/enviar e-mail
Estou tentando procurar pela pesquisa mais tá difícil de achar para D7 eu tentei utilizar alguns exemplos encontrados mais não deram certo, uso Delphi7 e gostaria de enviar e-mail pelo delphi com a possibilidade do usuário anexar um arquivo q esteja no pc, alguém pode me ajudar?
Janete
Curtidas 0
Respostas
Edmarss
30/08/2004
Var
vMailItem, OutLook: Variant;
begin
vMailItem:=Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´edmar@neosistemas.com.br´); // 1o Destin.
vMailItem.
vMailItem.Subject:=´teste de email´; // assunto
vMailItem.Body:=´Isto é um teste´; // corpo
vMailItem.Attachments.Add(´c:\teste.zip´); // arq anexo
vMailItem.Send;
VarClear(Outlook);
vMailItem, OutLook: Variant;
begin
vMailItem:=Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´edmar@neosistemas.com.br´); // 1o Destin.
vMailItem.
vMailItem.Subject:=´teste de email´; // assunto
vMailItem.Body:=´Isto é um teste´; // corpo
vMailItem.Attachments.Add(´c:\teste.zip´); // arq anexo
vMailItem.Send;
VarClear(Outlook);
GOSTEI 0
Janete
30/08/2004
Var
vMailItem, OutLook: Variant;
begin
vMailItem:=Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´edmar@neosistemas.com.br´); // 1o Destin.
vMailItem.
vMailItem.Subject:=´teste de email´; // assunto
vMailItem.Body:=´Isto é um teste´; // corpo
vMailItem.Attachments.Add(´c:\teste.zip´); // arq anexo
vMailItem.Send;
VarClear(Outlook);
Deu um erro dizendo q não está declarado o ´olMailItem´
GOSTEI 0
Edmarss
30/08/2004
Lá vai a Unit completa:
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(´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;
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(´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
vMailItem.Attachments.Add(´C:\temp\arq.txt´); // arquivo
anexado
vMailItem.Send;
VarClear(Outlook);
end;
GOSTEI 0
Dpinho
30/08/2004
Invalid Variant Operation... porque deste erro
GOSTEI 0