Enviar e-mail do Outlook através do Delphi

Delphi

03/02/2003

pessoal, como faço para enviar 1 e-mail com assunto, texto, arquivo em anexo para a caixa de saida do outlook express?
estou precisando disto urgente, tentei usar a OCX MSMAPI32 mas não consegui... diz que o uso desta ocx nao esta licenciado...

alguma dica?

grato

Leandro


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

03/02/2003

Declare as Unit´s [b:f00136658e] ComObj e Outlook2000 [/b:f00136658e]

procedure EnviaEmail;
var Outlook, NmSpace, Folder, MI: OleVariant;
begin
Outlook := CreateOleObject(´Outlook.Application´);
NmSpace := Outlook.GetNamespace(´MAPI´);
NmSpace.Logon(EmptyParam, EmptyParam, False, True);
Folder := NmSpace.GetDefaultFolder(olFolderInbox);

MI := Outlook.CreateItem(0);
MI.Recipients.Add(´destinatario@email.com.br´);

MI.Subject := ´Assunto do Email´;
MI.Body := ´Mensagem...´;

MI.Display; // ou MI.Send para enviar

NmSpace.Logoff;
Outlook := Unassigned;
end;


GOSTEI 0
Anonymous

Anonymous

03/02/2003

ocorre o erro: Sequencia de classe inválida nesta linha:
Outlook := CreateOleObject(´Outlook.Application´);


GOSTEI 0
Nadilson

Nadilson

03/02/2003

Olá, Leandro.

Já tentei usar a mesma dica que lhe enviaram e obtive o mesmo erro. Mas, se interessar, por e-mail eu posso enviar um aplicativo que fiz uma vez para outro usuário com a mesma pergunta... Entre em contato comigo para que eu possa enviar


GOSTEI 0
Anonymous

Anonymous

03/02/2003

Ola Nadilson, gostaria muito que me ajudasse,
por favor, me mande o e-mail
leandro@amplasistemas.com.br

grato


GOSTEI 0
Virus69

Virus69

03/02/2003

pessoal, como faço para enviar 1 e-mail com assunto, texto, arquivo em anexo para a caixa de saida do outlook express? estou precisando disto urgente, tentei usar a OCX MSMAPI32 mas não consegui... diz que o uso desta ocx nao esta licenciado... alguma dica? grato Leandro


Olá tente a rotina usada no meu sistema
_________________________________________________________
// Procedure para envio do email pelo delphi chamando o otlook
procedure PrepararEmail(Para, Assunto, Msg: string);var S: string;begin
S := ´mailto:´ + Para + ´?subject=´ + Assunto + ´&body=´ + Msg;
ShellExecute(0, ´open´, PChar(S), nil, nil, SW_SHOW);end;
_________________________________________________________

procedure TFrmClientes.Enviar1Click(Sender: TObject);
begin
PrepararEmail(DBEdit24.text,DBEdit2.text, Memo1.text);


GOSTEI 0
POSTAR