[RESOLVIDO] enviamail.p

Eae pessoal! Desenvolvi uma Upc, que no momento que o usuário altera o campo estoque da tabela item, a mesma dispara um email para o setor de TI informando a altera^ção e o usuário que realizou a mesma, só o problema, é que os usuário não tem permissões de administrado para envio de emails, gostaria de saber se via enviamail.p existe a possibilidade de setar que quem está enviando a mensagem é o setor de ti, assim sendo a mesma será enviada imediatamente sem o usuário ter conhecimento desta

vlwwwwwwwwwwwwwww

cara, o que acontece é q tem o usuário x que vai alterar o estoque, na hora de enviar e-mail, o programa está pegando o outlook local pra envio, e no caso esse usuário tem restrições de segurança, o que resulta em diversas mensagens do próprio outlook na hora do envio do mail, entendeste? queria força que o mail fosse enviado pegando como emitente o usuário administrador e não o local

Você fez pela APi da Datasul (utapi019) ?

não cara, eu usei o seguinte código

Código:

procedure p-abre-outlook: /* Microsoft Outlook */
      CREATE "Outlook.Application" h_objoutlook.
      h_objoutlookmsg   = h_objoutlook:CreateItem(0).
   END.

   PROCEDURE p-adiciona-email:
      DEF INPUT PARAM endereco AS CHAR.
      h_objoutlookrecip = h_objoutlookmsg:Recipients:Add(endereco).
      h_objoutlookrecip:Type  = 3.
   END.

    procedure p-envia:
       DEF INPUT PARAM assunto AS CHAR.
       DEF INPUT PARAM mensagem AS CHAR.
       h_objoutlookmsg:Subject = assunto.
       h_objoutlookmsg:Body    = mensagem.
       h_objoutlookrecip:Resolve.
       h_objoutlookmsg:Send.

       release object h_objoutlookmsg.
       release object h_objoutlookrecip.
       message "E-mail enviado com êxito." view-as alert-box.
   end.