PC Toledo

Código: Selecionar todos

procedure cp_upt

	local	nLin,;
			nCol,;
			nAlt	:= 10,;
			nLar	:= 50,;
			nN,;
			lAlt	:= TRUE
	
	local	cPop	:= space(50),;
			cSmtp	:= space(50),;
			cUser	:= space(50),;
			cPass	:= space(50)
	
	local	cEmailDest	:= space(50),;
			cEmailOrig	:= space(50),;
			cEmailAssu	:= space(50),;
			cEmailBody
			
	sbtt("Teste de Novas Funcionalidades do Cash Pro Manager")
	while TRUE
		FazJanela(nAlt,nLar,"Envio de Email")
		nLin := row()
		nCol := col()
	
		nN++
		@ nLin+nN, nCol say "Endere‡o POP..";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o *endere‡o do *servidor *POP3 para seu *Email" ));
			valid(SaiValid() .or. !empty(cPop))

		nN++
		@ nLin+nN, nCol say "Endere‡o SMTP.";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o *endere‡o do *servidor de Envios (*SMTP) para seu *Email" ));
			valid(SaiValid() .or. !empty(cPop))

		nN++
		@ nLin+nN, nCol say "Seu Email.";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o seu endere‡o de Email" ));
			valid(SaiValid() .or. !empty(cPop))

		nN++
		@ nLin+nN, nCol say "Nome de Usu rio.";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o *Nome de Usu rio do seu Email" ));
			valid(SaiValid() .or. !empty(cPop))

		nN++
		@ nLin+nN, nCol say "Informe a *Senha do seu Email.";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o *endere‡o do *servidor de Envios (*SMTP) para seu *Email" ));
			valid(SaiValid() .or. !empty(cPop))

		nN++
		@ nLin+nN, nCol say "Para.";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o endere‡o do email do destinat rio da sua mensagem." ));
			valid(SaiValid() .or. !empty(cPop))

		nN++
		@ nLin+nN, nCol say "Assunto";
			get sPop;
			picture "@S30";
			when(Rodape("Informe o *endere‡o do *servidor de Envios (*SMTP) para seu *Email" ));
			valid(SaiValid() .or. !empty(cPop))
	
		nN++
		@ nLin+nN, nCol say "Mensagem.";
			get sPop;
			picture "@S40";
			when(Rodape("Mensagem do Email" ));
			valid(SaiValid() .or. !empty(cPop))
		
		if lAlt
			Read
		else
			clear gets
			Rodape("Pressione *F2 para *Alterar os Dados ou *F12 para *Enviar o *EMail - *Esc para Sair")
			SbKy()			
		endif
		
		do case
			case LastKey() = K_ESC
				exit
			case LastKey() = K_F2
				Loop
			case LastKey() = K_F12
				EnviaEmail()
		endcase
		loop
	enddo
return

function EnviaEmail(cSmtpServer, cUser, cSenha, cDe, cPara, cAssunto, cCorpo, cArq)

	local 	oSmpt,;
			oEmail
	
	oEmail := TIpMail():new()
	oEmail:setHeader(cAssunto, cDe, cPara)
	oEmail:setBody(cCorpo)
	if !Empty(cArq)
		oEmail:attachFile(cArq)
	endif
	
	oSmtp:= TIpClientSmtp():new(cSmtpServer)
	
	if oSmtp:open()
		oSmtp:sendMail(oEmail)
		oSmtp:close()
		ErrorMessage("Email Enviado!*")
	else
		ErrorMessage("Erro ao se conectar ao servidor SMTP!*")
	endif

	
return
	

Código: Selecionar todos

Function envia_email_pos
local cSubject  := hb_oemtoansi("PàS VENDA - ")+usuario
local        aTo:= { endereco@provedor.com.br }
local cServerIp := smtp.gmail.com
local cFrom     := fulanodetal@gmail.com
local cUser     := fulanodetal@gmail.com
local cMsg      := memoread("carta1.txt")
cPass           := alltrim(cdpar000->mpswd)
porta           := 25
pop3            := imap.gmail.com:993
if hb_SendMail(cServerIP,porta,cFrom,aTo,,,cMsg,cSubject,,cUser,cPass,pop3,1,.F.,.T.,.T.,.F.)=.T.

Código: Selecionar todos

... imm32.lib msimg32.lib wininet.lib hbpcre.lib hbzlib.lib hbblat.lib(blatwrp.obj) : error LNK2019: unresolved external symbol _cSend referenced in function _HB_FUN_HB_BLATSEND
teste.exe : fatal error LNK1120: 1 unresolved externals
hbmk2: Error: Running linker. 1120

Código: Selecionar todos

if hb_SendMail(cServerIP,porta,cFrom,aTo,,,cMsg,cSubject,,cUser,cPass,pop3,1,.F.,.T.,.T.,.F.)=.T.
   alert('enviou com sucesso')
endif