FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
enviar mail
Que tal Gente soy muy nuevo en esto hace 4 meses que ando investigando!
Estoy intentando hacer una opcion que me envie un mail pero no logro encontrar DONDE PONER LA DIRECCION DEL ESTINATARIO, encambio si encontre donde poner el asunto y el cuerpo del mensaje! les dejo el codigo que utilicé a ver si me pueden ayudar! -------------------------------------------------------------- var MapiMessage: TMapiMessage; MError: Cardinal; // lpszAddress: LPSTR; // ulRecipClass: Cardinal; begin with MapiMessage do begin ulReserved := 0; lpszSubject := 'Enviado desde mi prgrama'; lpszNoteText := PChar(Dbedit5.Text); lpszMessageType := nil; // lpszAddress:= PChar(Dbedit5.Text); lpszDateReceived := nil; lpszConversationID := nil; flFlags := 0; lpOriginator := nil; nRecipCount := 0; lpRecips := nil; nFileCount := 0; lpFiles := nil; end; MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0); if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0); end; |
|
|
|