mailto no Windows Vista/ Windows Sevem

[MARCELOG]

Olá pessoal,
meus sistemas têm um recurso que funcionou muito bem até o Windows XP.
Eles usam o comando "mailto" para abrir o gerenciador de emails padrão no windows, contendo um destinário, assunto e mensagem pré-definida para eventual envio.
Todavia, na versão Vista e Sevem(7), a chamada ao "mailto" está gerando um erro fatal e determinandoa saída do sistema.
Alguma sugestão para contornar o problema?

MarceloG

[MARCELOG]

Olá pessoal,
não tem nada errado com o sistema operacional.
É que não havia software administrando email instalado, gerando o erro.
Então eu pergunto: É possível interceptar o erro para evitar que o sistema seja abortado?
Utilizo o MyRun postado aqui no fórum.
MyRun('mailto:destino@servidor.com.br')

Obrigado.

MarceloG

[rochinha]

Amiguinho,

Qual o conteudo de MyRUN, qual o código contido?

[sygecom]

Olá Marcelo,
Eu uso assim:

Código: Selecionar todos

**************************
Function MYRUN( cComando )
**************************
local oShell
TRY
   oShell := CreateObject( "WScript.Shell" )
CATCH
   TRY
      oShell := CreateObject( "WScript.Shell" )
   CATCH
      MsgStop( "Erro! ao executar um comando externo","Aviso do Sistema")
      RETURN(.F.)
   END
END
TRY
  oShell:Run( "%comspec% /c " + cComando, 0, .T. )
CATCH
  winexec(cComando,2)
END
oShell := NIL
return .T.

[cjp]

Pessoal, estou tentando usar o mailto para usar o programa padrão de e-mail para mandar e-mails. Já usei antes, mas agora está aparecendo errado o e-mail pré-preenchido, com o destinatário, assunto e corpo do e-mail tudo junto, no campo do destinatário.
Não sei se estou fazendo algo errado, estou chamando assim:

Código: Selecionar todos

mailto(mail,cAssAtiv,txtenv)

Já tentei de várias outras formas também, mas nunca dá certo.
Alguém pode me ajudar?

[JoséQuintas]

Eu também esqueci.

Só lembro que o recurso é DO WINDOWS e não função.

E o windows vai usar o programa de email padrão.... coisa que hoje em dia é difícil existir.

[cjp]

No caso, meu programa de e-mail padrão é o Thunderbird.
Entendo que é recurso do Windows, mas acho que este recurso é chamado por uma função do Harbour, não? Afinal, é mailto(), né?

[JoséQuintas]

Eles usam o comando "mailto" para abrir o gerenciador de emails padrão no windows,

Acima foi mencionado O COMANDO, PARA O WINDOWS.

MyRun('mailto:destino@servidor.com.br')

Acima foi mostrado o comando

No post anterior ao seu tem o fonte de MyRun(), que nem é necessário, mas tem, que é pra executar pelo windows.

mas acho que este recurso é chamado por uma função do Harbour, não? Afinal, é mailto(), né?

Tirou MailTo() de onde ?
Está dizendo que é do harbour porque ?
Se usou antes, cadê o fonte ? jogou fora ? Achou que nunca mais ia enviar email ?

Tem horas que não entendo essas coisas...
Pra ajudar, preciso ler as mensagens que não leu, é isso ?
Isso acima está nas mensagens, e é sua resposta.

Quanto a enviar pelo harbour .... email em inglês é MAIL

vai no prompt: hbmk2 -find mail

[Itamar M. Lins Jr.]

Olá!
Use a linha de comando.

Código: Selecionar todos

thunderbird.exe -compose "to='email@domain.com',subject='Some Subject',preselectid='id1',body='Message Body',attachment='File.txt'"

Código: Selecionar todos

C:\Program Files\Mozilla Thunderbird\thunderbird.exe -compose "to='email@domain.com',subject='Some Subject',preselectid='id1',body='Message Body',attachment='File.txt'" 

Mais fácil que mastigar água!

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!

Tirou MailTo() de onde ?

Que nem o cara ai que postou um código criado pelo CHATGPT e depois reclamou que não funcionou. rsrsrsrs... Só tem bestinha.

Saudações,
Itamar M. Lins Jr.

[cjp]

Eu falei da mailto() sem pensar bem, fazia tempo que não usava. Agora eu descobri que tinha uma antiga função mailto() no meu sistema, assim:

Código: Selecionar todos

function mailto(cEmailDest,cAssunto,cMensagem)
	     wapi_ShellExecute( 0, "open", "rundll32.exe", ;
	     "url.dll,FileProtocolHandler " + ;
	     "mailto:"+cEmailDest+; // "?cc=&bcc=" + ;
	     "&subject="+cAssunto + ;
	     "&body="+cMensagem, , 1 )
return

Não entendi porque não está funcionando. Mas de qualquer forma, já resolvi o problema com a sugestão do Itamar.
Só um detalhe não funcionou: não consigo usar o hb_eol() na descrição do conteúdo do e-mail. Ele está interrompendo a variável do texto do e-mail quando uso o hb_eol().

[Kapiaba]

Cjp, só uma dúvida: Você entrou em Programas Padrão, e disse ao rWindows 8, qual era o ENVIADOR PADRÃO? Exemplo Windows Live mail, só vai enviar via comando, se você o DEFINIR, como ENVIADOR PADRÃO. Confirma?

Abs.

Regards, saludos.

[JoséQuintas]

Só lembro que o recurso é DO WINDOWS e não função.
E o windows vai usar o programa de email padrão.... coisa que hoje em dia é difícil existir.

Foi isso que coloquei antes, mas sei lá se ele leu.
E terá que fazer isso EM TODAS AS MÁQUINAS aonde quiser enviar email.
Instalar programa de email, configurar, etc.

Com certeza isso deixou de ser útil há muito tempo.

[cjp]

Sim, como eu disse acima, o Thunderbird é o programa padrão de e-mail. E como esta função é usada exclusivamente na minha máquina, não teria dificuldade.
Mas, como disse, a solução do Itamar, chamando diretamente o Thunderbird, resolveu o problema.
Só estou com pendência ainda do uso do hb_eol() na variável que será o conteúdo do e-mail. Não entendi porque não está funcionando.

[Itamar M. Lins Jr.]

Olá!

hb_eol()

Use ";" ponto e vírgula.... vai testando ai.

Saudações,
Itamar M. Lins Jr.