Delphi 7 - não consegui encontrar ex. p/enviar e-mail

30/08/2004

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

Respostas

30/08/2004

Edmarss

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);


Responder Citar

30/08/2004

Janete

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´


Responder Citar

30/08/2004

Edmarss

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;


Responder Citar

13/09/2004

Dpinho

Invalid Variant Operation... porque deste erro


Responder Citar