Dúvida com envio de email ?
13/09/2004
0
Procurei no forum e achei a seguinte função que envia email padrão só que n esta funcionando, alguém poderia me ajudar por favor ?
O programa não chega nem a compilar da a seguinte mensagem:
[Error] unenviaremail.pas(41): Undeclared identifier: ´TMapiMessage´
O programa não chega nem a compilar da a seguinte mensagem:
[Error] unenviaremail.pas(41): Undeclared identifier: ´TMapiMessage´
function Tfrmemail.EnviarEmailPadrao(const De, Para, Assunto, Texto, Arquivo: string; Confirma: Boolean): Integer; var Msg: TMapiMessage; lpSender, lpRecepient: TMapiRecipDesc; FileAttach: TMapiFileDesc; SM: TFNMapiSendMail; MAPIModule: HModule; Flags: Cardinal; begin // cria propriedades da mensagem FillChar(Msg, SizeOf(Msg), 0); with Msg do begin if (Assunto <> ´´) then lpszSubject := PChar(Assunto); if (Texto <> ´´) then lpszNoteText := PChar(Texto); // remetente if (De <> ´´) then begin lpSender.ulRecipClass := MAPI_ORIG; lpSender.lpszName := PChar(De); lpSender.lpszAddress := PChar(De); lpSender.ulReserved := 0; lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end; // destinatário if (Para <> ´´) then begin lpRecepient.ulRecipClass := MAPI_TO; lpRecepient.lpszName := PChar(Para); lpRecepient.lpszAddress := PChar(Para); lpRecepient.ulReserved := 0; lpRecepient.ulEIDSize := 0; lpRecepient.lpEntryID := nil; nRecipCount := 1; lpRecips := @lpRecepient; end else lpRecips := nil; // arquivo anexo if (Arquivo = ´´) then begin nFileCount := 0; lpFiles := nil; end else begin FillChar(FileAttach, SizeOf(FileAttach), 0); FileAttach.nPosition := Cardinal($FFFFFFFF); FileAttach.lpszPathName := PChar(Arquivo); nFileCount := 1; lpFiles := @FileAttach; end; end; // carrega dll e o método para envio do email MAPIModule := LoadLibrary(PChar(MAPIDLL)); if MAPIModule = 0 then Result := -1 else try if Confirma then Flags := MAPI_DIALOG or MAPI_LOGON_UI else Flags := 0; @SM := GetProcAddress(MAPIModule, ´MAPISendMail´); if @SM <> nil then Result := SM(0, Application.Handle, Msg, Flags, 0) else Result := 1; finally FreeLibrary(MAPIModule); end; end;
Jc_analista
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)