Enviar e-mail do Outlook atrav�s do Delphi

Question

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 · Answer

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;

Anonymous · Answer

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

Nadilson · Answer

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...

Anonymous · Answer

Ola Nadilson, gostaria muito que me ajudasse, por favor, me mande o e-mailleandro@amplasistemas.com.brgrato...

Virus69 · Answer

[quote:a190cda8a8=�Leandro�]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[/quote:a190cda8a8]Ol� tente a rotina usada no meu sistema_________________________________________________________// Procedure para envio do email pelo delphi chamando o otlookprocedure 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);beginPrepararEmail(DBEdit24.text,DBEdit2.text, Memo1.text);...

F�rum Enviar e-mail do Outlook atrav�s do Delphi #132343