Fórum Como enviar e-mail do delphi? #202749
23/12/2003
0
Serei grato a qualquer ajuda.
Um abraço a todos!!!
Rolemes
Curtir tópico
+ 0Posts
23/12/2003
Maicongabriel
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
09/01/2004
Rolemes
fico aguardando ajuda!!!
valeu e até mais.
Gostei + 0
09/01/2004
Nigro
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
09/01/2004
Rolemes
grato.
Gostei + 0
12/01/2004
Nigro
Gostei + 0
12/01/2004
Rolemes
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)