Enviando email através de api

{Declare a uses SHELLAPI

mailto=destino
subject = assunto
attachment= anexo}

comando:='mailto:'+quotedstr(Email) +
'?subject='+quotedstr(vEmail.Assunto)+
';attachment='+quotedstr(arquivo) +';';

ShellExecute(0, nil, PChar(Comando), nil, nil,SW_SHOWNORMAL);