Como enviar e-mail do delphi?
Dae galera, gostaria de saber se alguem sabe como executar o outlook express diretamente do delphi?
Serei grato a qualquer ajuda.
Um abraço a todos!!!
Serei grato a qualquer ajuda.
Um abraço a todos!!!
Rolemes
Curtidas 0
Respostas
Maicongabriel
23/12/2003
como executar o outlook express diretamente do delphi?
Se for somente isto o que você deseja, então...
ShellExecute(0,nil,´msimn.exe´, nil, nil, SW_SHOWNORMAL);
...faz isto!
[i:011a37bd66]Declare ShellApi na Uses [/i:011a37bd66]
GOSTEI 0
Rolemes
23/12/2003
caros amigos, alguem sabe como eu enviar, por exemplo, o campo ´e-mail´ da tabela para o campo de endereço do outlook express?
fico aguardando ajuda!!!
valeu e até mais.
fico aguardando ajuda!!!
valeu e até mais.
GOSTEI 0
Nigro
23/12/2003
const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;
GOSTEI 0
Rolemes
23/12/2003
aí nigro, vc tem alguma rotina passo a passo dessa que vc me passou?
grato.
grato.
GOSTEI 0
Nigro
23/12/2003
Coloque esse código dentro de um botão e manda bala.
GOSTEI 0
Rolemes
23/12/2003
mas ele me retorna muitos erros, eu já tinha feito o que vc me disse, apenas colocar o código no botão e mandar bala, mas retorna muitos erros.
GOSTEI 0