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: