Ciao, mi chiamo Lucas, sono brasiliano, scuzi mio male italian.
Si, exist due forma di lavorare:
1 - Prima - (NON Accept Attachement )
========================================================================
Procedure ......
var
Mail : String;
begin
Mail := 'mailto:'+CDS_CLIENTESMAIL.AsString+'?Subject=Informe o Assunto da Mensagem...&Body=Digite o Corpo da Mensagem...';
ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal);
End;
2 - Seconda - (Accept Attachement )
=========================================================================
Procedure ...
var
Outlook: OleVariant;
vMailItem: variant;
Mail : String;
begin
OpenDialog1.Execute;
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(CDS_ClientesEMAIL.AsString); // 1o destinatário
vMailItem.Subject := 'Tuo Subject '; // assunto
vMailItem.Body := 'Segue em anexo o Arquivo com a Tabela de Preços'; // Corpo do e-mail
vMailItem.Attachments.Add(OpenDialog1.FileName); // arquivo anexado
vMailItem.Send;
VarClear(Outlook);
End;
Grazie
Lucas di Brasile
Skype: Lucas_Fernando_Franca
MSN: