Esta forma de envio de e-mail é simples e não permite o envio de anexos,
ela simplismente abre o aplicativo padrão de e-mail com os dados informado.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | // É necessário estar declarado ShellAPI na seção uses. // Em versões unicode declare Winapi.ShellAPI. // Exemplo: procedure TForm1.Button1Click(Sender: TObject); var StringShellExecute: String; begin StringShellExecute := StringShellExecute + 'mailto:' + edtPara.Text + '?cc=' + edtCC.Text + '&cco=' + edtCCO.Text + '&subject=' + edtAssunto.Text + '&body=' + memoMensagem.Lines.Text; ShellExecute(Self.Handle, 'open', PChar(StringShellExecute), '', '', SW_SHOWNORMAL); end; |
