Moderador: Moderadores
#include "minigui.ch"
Function Main
Local cEmailDest:="toledo@pctoledo.com.br",;
cAssunto:="Assunto do e-mail",;
cMensagem:="Mensagem que será enviada"
DEFINE WINDOW Form_Main ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
MAIN ;
TITLE 'Exemplo de envio de e-mail pelo Outlook Express'
DEFINE MAIN MENU
POPUP 'e-mail Outlook Express'
ITEM 'Enviar' ACTION ShellExecute( 0, "open", "rundll32.exe", ;
"url.dll,FileProtocolHandler " + ;
"mailto:"+cEmailDest+"?cc=&bcc=" + ;
"&subject="+cAssunto + ;
"&body="+cMensagem, , 1 )
END POPUP
END MENU
END WINDOW
CENTER WINDOW Form_Main
ACTIVATE WINDOW Form_Main
Return Nil
if not defined MG_BCC set MG_BCC=c:\borland\bcc55
if not defined MG_ROOT set MG_ROOT=c:\minigui
Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes