Logar ou Criar uma Conta

Anuncie aqui você Também: fdantas@4each.com.br

A2 Solutions Anuncie Aqui

Enviar e-mail pelo Outlook utilizando Progress - Dúvida

Discussão em 'Progress 4GL' iniciado por Pulllga, Abril 6, 2009.

Página 1 de 2

Pulllga Sem Pontuação

Olá, é meu primeiro post e minha dúvida é complicada.

Criei uma include de funções para enviar e-mails utilizando o Outlook.

Disponibilizo abaixo a include para livre uso:

Minha aplicação em Progress4GL precisa, em determinadas situações, enviar e-mails automaticamente, a include e suas funções funcionam perfeitamente, até certo ponto!

Quando utilizo a função "e-send" para enviar o e-mail, o próprio Outlook abre uma janela pedindo confirmação do envio, o que não quero, pois tem que ser automático, a aplicação envia e-mails de alerta, por isso tem que burlar esta solicitação de confirmação.

Outro problema é que não consigo achar um método de alterar o remetente da mensagem, pois como a aplicação roda virtualizada, a cada sessão, um usuário diferente pode estar acessando ela, então o programa deve poder utilizar seu usuário de rede para identificar o remetente e enviar o e-mail em nome dele.

Se alguém puder me ajudar, fico muito grato.

Obs.: As mensagens ainda são provisórias, serão corrigidas quando concluir a include.

Obrigado desde já.

Pulllga

/*Processo que envia e-mail com validações e correções de erro*/
def var v-OutLook as com-handle.
def var v-Object as com-handle.
def var v-Folder as com-handle.
def var v-MItem as com-handle.
def var v-SItem as com-handle.
def var v-Recip as com-handle.
def var v-char as char init "'!#$%¨&*()+=´`{}~^/?:>,<\|[]".
def var v-rel as log init no.

function GLOG log (v-dest as char, v-sub as char):

output to value ("\\srvweb\Inetpub\ftproot\Emails\EMAIL.LOG") append.
def var v-name as char.
v-name = file-info:file-name.

do while index(v-name,"\") > 0:
v-name = substring(v-name,index(v-name,"\") + 1, length(v-name)).
end.

put unformatted today
" "
time
" "
upper(userid("dictdb"))
" "
v-name
" "
v-dest
" "
v-sub
" "
"Enviado com Sucesso!" skip.
output close.

end.

function VMAIL log (v-mail as char):
def var v-ent as int init 0.
def var v-cha as int init 0.

repeat v-ent = 1 to num-entries(v-mail,";"):
if index(entry(v-ent,v-mail,";"),"@") < 1 then do:
return no.
end.

repeat v-cha = 1 to length(v-char):
if index(v-mail,substring(v-char,v-cha,1)) > 0 then do:
return no.
end.
end.
end.

return yes.

end function.

function e-init char ():
if v-OutLook = ? then do:
create "Outlook.Application" v-OutLook.
v-Object = v-OutLook:GetNameSpace("MAPI":U).
v-Folder = v-object:GetDefaultFolder(6).
v-MItem = v-Folder:Items:add().
end.
end function.

function e-attach char (v-param as char):

if search(v-param) = ? or
search(v-param) = "" then do:
/*
message "1 - Anexo inválido, verifique o local ou nome do mesmo." view-as alert-box.
*/
return no-apply.
end.

v-MItem:attachments:add(v-param).

end function.

function e-to char (v-param as char):

if VMAIL(v-param) = no then do:
/*message "2 - E-Mail do destinatário inválido! Verifique se há @ ou o endereço contém caracteres inválidos, como '!#$%¨&*()+=´`{}~^/?:>,<\|[]" view-as alert-box.*/
return no-apply.
end.

v-MItem:to = v-param.

end function.

function e-cc char (v-param as char):

if VMAIL(v-param) = no then do:
/*message "2 - E-Mail do destinatário inválido! Verifique se há @ ou o endereço contém caracteres inválidos, como '!#$%¨&*()+=´`{}~^/?:>,<\|[]" view-as alert-box.*/
return no-apply.
end.

v-MItem:cc = v-param.
end function.

function e-bcc char (v-param as char):

if VMAIL(v-param) = no then do:
/*message "2 - E-Mail do destinatário inválido! Verifique se há @ ou o endereço contém caracteres inválidos, como '!#$%¨&*()+=´`{}~^/?:>,<\|[]" view-as alert-box.*/
return no-apply.
end.

v-MItem:bcc = v-param.
end function.

function e-send char (v-par1 as char, v-par2 as char, v-par3 as char, v-par4 as char, v-par5 as char):

if VMAIL(v-par1) = no then do:
/*message "2 - E-Mail de um ou mais destinatários inválido! Verifique se há @ ou o endereço contém caracteres inválidos, como '!#$%¨&*()+=´`{}~^/?:>,<\|[]" view-as alert-box.*/
return no-apply.
end.

if VMAIL(v-par2) = no then do:
/*message "2 - E-Mail de um ou mais destinatários inválido! Verifique se há @ ou o endereço contém caracteres inválidos, como '!#$%¨&*()+=´`{}~^/?:>,<\|[]" view-as alert-box.*/
return no-apply.
end.

v-MItem:session:getrecipientfromid = v-par1.
v-MItem:to = v-par2.
v-MItem:subject = v-par3.
v-MItem:body = v-par4.
if v-par4 <> "" then do:
if search(v-par5) = ? or
search(v-par5) = "" then do:
/*message "3 - Anexo inválido, verifique o local ou nome do mesmo." view-as alert-box.*/
return no-apply.
end.
v-MItem:attachments:add(v-par5).
end.
v-MItem:send().

GLOG(v-par2,v-par3).

v-rel = yes.
end function.

function e-end char ():
if v-OutLook <> ? and v-rel = yes then do:
release object v-OutLook.
release object v-Object.
release object v-Folder.
release object v-MItem.
end.
end function.
Clique para expandir...

Pulllga, Abril 6, 2009

#1
baltazar Membro Participativo

Para desactivar os e-mails de alerta faça o download do Advanced Security for Outlook que é gratuito, o unico contra é tem que ser instalado e activado por PC, existe também um componente para desenvolvedores que é paga, mas que pode integrar no código não tendo a necessidade de instalar o programa em todos os PC's. O link http://www.mapilab.com/outlook/security/.

Sobre a 2ª questão, nunca utilizei, mas procure no site http://msdn.microsoft.com/library/d.../vbaol10/html/oltocObjectModelApplication.asp, metodos/ objectos ... do Outlook.
Espero que ajude.

Baltazar

baltazar, Abril 7, 2009

#2
eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

Qual a versão do Outlook, no 2007 você consegue desabilitar está função.

eduardo.leite, Abril 7, 2009

#3
Pulllga Sem Pontuação

baltazar, obrigado pelas dicas, mas a idéia é evitar produtos de terceiro, quero desenvolver tudo aqui.

Já pesquisei muito sobre o assunto e decobri metodos de burlar a confirmação de envio e alterar o remetente da mensagem.

É dificil achar sobre isso, mas achei, o problema é que não consegui adaptar para progress com sucesso!

Assim que der posto aqui os resultados de minhas pesquisas.

eduardo.leite, meu Outlook é 2003.

Grato a todos...

Pulllga, Abril 7, 2009

#4
tandujar Membro Participativo

eu utilizo um programa que se chama smtpsend (programa dos free).
se quiser em passa o seu e-mail que te passo o programa que é pequeno e alguns esquemas para mandar e-mail rápido e sem precisar abrir nenhum outro gerenciador de email, para o usuário vai ser transparente.

tandujar, Julho 16, 2009

#5
Pulllga Sem Pontuação

Olá tandujar, obrigado, mas já tenho um programa para enviar e-mails, a idéia é utilizar a própria linguagem progress para integrar em todos os outros programas já existesntes e poder usar as própria configurações de rede dos usuários, por isso a necessidade do Outlook.

Pulllga, Julho 31, 2009

#6

(Você precisa ter uma conta ou estar logado para responder aqui.)

Página 1 de 2

Compartilhe esta Página

Ajude-nos a manter nosso conteúdo gratuito

Para manter nosso conteúdo gratuito nós utilizamos anúncios nas páginas, mas você está utilizando um bloqueador de anúncios (ad blocker).

Por favor, considere nos apoiar desabilitando o bloqueador para permitir a exibição dos anúncios.