Clipper On Line • Ver Tópico - Script para Mozilla Thunderbird

Script para Mozilla Thunderbird

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Script para Mozilla Thunderbird

Mensagempor asimoes » 12 Mai 2017 21:09

Pessoal,

A dica de hoje é poder montar um script para envio de email pelo Mozilla Thunderbird
cTo      := 'asimoesluz@gmail.com'
cCC      := 'asimoesluz@gmail.com'
cAssunto := 'TESTE SCRIPT'
cCorpo   := 'Script thunderbird'
cAnexo   := hb_DirBase() + 'demo.prg'   
           
cScriptThunderbird :=  "-compose to='&cTo.',cc='&cCC.',subject='&cAssunto.',body='&cCorpo.',attachment='&cAnexo.'"    

Execute( "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe", cScriptThunderbird )

//Ou

cEmail := "-compose "
cEmail +=   "to=" + cTo + ","
cEmail += "subject=" + cAssunto + ","
cEmail += "body=" + cCorpo + ","
cEmail += "attachment=" + cAnexo

Execute( "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe", cEmail )

FUNCTION Execute( cProgram, cParameter, lEspera )
LOCAL oShell, lOk := .T., nStyle
   lEspera := hb_DefaultValue(lEspera, .T.)
   TRY
      oShell := Win_OleCreateObject( "WScript.Shell" )
   CATCH
      TRY
         oShell := Win_OleCreateObject( "WScript.Shell" )
      CATCH
         lOk := .F.
      END
   END
   IF lOk
      TRY
         /*
         intWindowStyle
         Description
         0  Hides the window and activates another window.
         1  Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
         2  Activates the window and displays it as a minimized window.
         3  Activates the window and displays it as a maximized window.
         4  Displays a window in its most recent size and position. The active window remains active.
         5  Activates the window and displays it in its current size and position.
         6  Minimizes the specified window and activates the next top-level window in the Z order.
         7  Displays the window as a minimized window. The active window remains active.
         8  Displays the window in its current state. The active window remains active.
         9  Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
         10 Sets the show-state based on the state of the program that started the application.
         */
         nStyle := 1
         oShell:Run( '"' + cProgram + '"' + " " + cParameter, nStyle, lEspera)
      CATCH
         hwg_MsgStop("Erro executando "+cProgram, "Erro")
         lOk := .F.
      END
      oShell := Nil
   ENDIF
RETURN lOk


O resultado é esse:
2017-05-12 21_07_24-.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro