Jump to content
Fivewin Brasil

Enviar EMAIL.

Theotokos

By Theotokos
in Programação

 Share

Recommended Posts

Theotokos Apprentice

Theotokos

Posted
Posted

Amigos, abaxei alguns exemplos aqui para enviar email, mas não tenho conseguido, porque o provedor é hotmail. Como que configuro os parametros de smtp, pop, to, port, etc...

desde ja obgdo...

Em Cristo! com Maria!!!

Rone O. Coura

************************

xHarbour + BCC55 + FiveWin + xDevStudio

************************

A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

Amigos, abaxei alguns exemplos aqui para enviar email, mas não tenho conseguido, porque o provedor é hotmail. Como que configuro os parametros de smtp, pop, to, port, etc...

desde ja obgdo...

Em Cristo! com Maria!!!

Rone O. Coura

************************

xHarbour + BCC55 + FiveWin + xDevStudio

************************

A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

citação:

Se for xHarbour >= 1.0.0 pode usar a FUNCTION HB_SENDMAIL()

Leonardo Machado

Alvorada-RS

Hwgui + Harbour

leonardodemachado@hotmail.com

id=quote>id=quote>

tentei com hb_sendmail, mas por causa de ser hotmail, nao consegui configurar. com faço?

Em Cristo! com Maria!!!

Rone O. Coura

************************

xHarbour + BCC55 + FiveWin + xDevStudio

************************

A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Link to comment
Share on other sites
VLNUNES Newbie

VLNUNES

Posted
Posted

Olá;

citação:

... o provedor é hotmail. Como que configuro os parametros de smtp, pop, to, port, etc...

id=quote>id=quote>

Se não for contra as regras posso informar como burlar o hotmail para poder usar o outlook.

Vander

HbMake v1.17

xHarbour build 0.99.70 Intl. (SimpLex)

Borland C++ 5.5.1

fivewin 6.12 (FREE)

Workshop 4.5

MEdit

Link to comment
Share on other sites
eevaldo Newbie

eevaldo

Posted
Posted

Se não for contra as regras posso informar como burlar o hotmail para poder usar o outlook.

Vander

Ola Vander te mandei um email, se for possivel me mandar as dicas eu agradeço.

Obrigado.

Evaldo Wagner

FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console)

evaldowl@hotmail.com

Editado por - eevaldo on 15/03/2010 10:24:50

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
  • Author
Posted

Quanto bular o hotmail para usar no outlook isto ja fiz...

Quanto Hb_SendMail:

Local cMailServer := PadR( "smtp.live.com", 60 ), ; // servidor de correo

cFrom := PadR( "usuario@ig.com.br", 60 ), ; // remitente

cTo := PadR( "usuario@hotmail.com", 180 ), ; // destinatario (uno o varios separados con comas)

cBCC := PadR( "daniel_segura@ig.com.br", 180 ), ; // copias ocultas a (uno o varios separados con comas)

cAttach := "ERROR.LOG",; // PadR( "c:\fwh\bitmaps\fivewin.bmp", 180 ), ; // archivo anexo (uno o varios separados con comas)

cSubject := cAssunto, ; // asunto

cBody := cMensagem, ; // Space( 500 ), ; // cuerpo del mensaje

nPort := 465, ; // ja tentei 21, 25

cUser := "usuario@servidor.com.br", ; // Space( 60 ), ; // nombre de usuario para autenticación

cPass := "senhasenha"

Function hb_SendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )

Local oCfg, oMsg, oError, nEle, cToken, ;

aAttach := {}, ;

lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ;

nSendOpt := 2 // send using: 1 = pickup folder 2 = port

Default nPort := 25, ;

cSubject := "", ;

cBody := ""

If "GMAIL.COM" $ Upper( cMailServer ) .and. ( Empty( cUser ) .or. Empty( cPass ) )

MsgStop( "Com GMail são requeridos nome do usuario e senha", "Atenção" )

Return .f.

EndIf

CursorWait()

nEle := 1

While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )

AAdd( aAttach, cToken )

EndDo

Try

oCfg := CreateObject( "CDO.Configuration" )

With Object oCfg:Fields

:Item( cdoSMTPServer ):Value := Trim( cMailServer )

:Item( cdoSMTPServerPort ):Value := nPort

:Item( cdoSendUsing ):Value := nSendOpt

If lAuth

:Item( cdoSMTPAuthenticate ):Value := 1

:Item( cdoSendUserName ):Value := Trim( cUser )

:Item( cdoSendPassword ):Value := Trim( cPass )

:Item( cdoSMTPUseSSL ):Value := 1

EndIf

:Update()

End With

oMsg := CreateObject( "CDO.Message" )

With Object oMsg

:Configuration := oCfg

:From := Trim( cFrom )

:To := Trim( cTo )

:Subject := Trim( cSubject )

:TextBody := Trim( cBody )

For nEle := 1 To Len( aAttach )

:AddAttachment := AllTrim( aAttach[ nEle ] )

Next

If ! Empty( cBCC )

:BCC := Trim( cBCC )

EndIf

:Send()

End With

Catch oError

CursorArrow()

MsgStop( "Não foi possível enviar a mensagem" + CRLF + "Error: " + cValToChar( oError:GenCode) + CRLF + ;

"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;

"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensagem: " + oError:Description )

oCfg := Nil

oMsg := Nil

Return .f.

End Try

oCfg := Nil

oMsg := Nil

// SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 )

CursorArrow()

Return .t.

Em Cristo! com Maria!!!

Rone O. Coura

************************

xHarbour + BCC55 + FiveWin + xDevStudio

************************

A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

Mira aki esta dica:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14663&p=76016&hilit=CDO.Configuration#p76016

Funfa 100%.

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

logo02e.jpg

"Nóis é Jeca, mais nóis é Jóia"id=red>

Editado por - Ale SB on 16/03/2010 08:37:23

id=quote>id=quote>

Alê, testando o .exe que veio no zip, me gera este erro:

Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND

O que pode ser?

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

"Burro Carregado de Açucar, Até o Fiofó é Doce"

Link to comment
Share on other sites
Ale SB Newbie

Ale SB

Posted
Posted

Bom eu tive..q fazer uns acertos aki no meu...soh me basiei nesta dica ai....perai..vou separar meu fonte..daqui a poko ja posto pra vcs..

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

logo02e.jpg

"Nóis é Jeca, mais nóis é Jóia"id=red>

Link to comment
Share on other sites
Ale SB Newbie

Ale SB

Posted
Posted

Testado...e funcionando:



********************************************************************************


Static Function Config_Mail(cServ,nPort,cUser,cPass,lAut,lSSL)


********************************************************************************


  local lRet := .f.


  local oCfg, oError


  DEFAULT cServ := "smtp.live.com"  //--> SERVIDOR SMTP - "smtp.servidor.com.br"


  DEFAULT nPort := 25


  DEFAULT cUser := "yyyyyyy@hotmail.com"  //--> USUARIO


  DEFAULT cPass := "xxxxx"  //--> SENHA


  DEFAULT lAut  := .t.


  DEFAULT lSSL  := .t.


  TRY


    oCfg := CREATEOBJECT( "CDO.Configuration" )


      WITH OBJECT oCfg:Fields


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"       ):Value := cServ


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"   ):Value := nPort


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"        ):Value := 2


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"       ):Value := lSSL


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"     ):Value := cUser


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"     ):Value := cPass


  	 		  :Update()


      END WITH


      lRet := .t.


  CATCH oError


    MsgInfo( "Não Foi possível Enviar o e-Mail!"  +CRLF+ ;


             "Error: "     + Transform(oError:GenCode,   nil) + ";" +CRLF+ ;


             "SubC: "      + Transform(oError:SubCode,   nil) + ";" +CRLF+ ;


             "OSCode: "    + Transform(oError:OsCode,    nil) + ";" +CRLF+ ;


             "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;


             "Mensaje: "   + oError:Description, "Atenção" )


  END


  //--> FIM DAS CONFIGURAÇOES.


  if lRet


     Envia_Mail(oCfg)


  endif


Return lRet


id=code>id=code>




********************************************************************************


Function Envia_Mail(oCfg)


********************************************************************************


  local aAttach := {}, aTo := {}


  local cToken


  local nEle


  local oMsg


  local cFrom, cSubject, cMsg, cAttach


  cFrom    := "Ale SB "  //--> DE 


  aTo      := { "ale.seribeli@hotmail.com","kmt_karinha@pop.com.br","joao@pleno.com.br" } //--> PARA	


  cSubject := "Teste de Envio de eMail - FW"  //--> ASSUNTO


  cMsg     := "NOIS TRUPICA MAIS NAO CAI..."


  cAttach   := "&cCamSistema\spfc.jpg,&cCamSistema\caipira.jpg"     // ANEXO   


  nEle := 1


   While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )


      AAdd( aAttach, cToken )


   EndDo


   for i:=1 to len(aTo)


       TRY


         oMsg := CREATEOBJECT ( "CDO.Message" )


           WITH OBJECT oMsg


                :Configuration = oCfg


                :From = cFrom


                :To = aTo


                :Subject = cSubject


                :TextBody = cMsg


                For x := 1 To Len( aAttach )


                    :AddAttachment(AllTrim(aAttach[x]))


                Next


                :Send()


           END WITH


       CATCH


           MsgInfo("Não Foi Possível Enviar," +CRLF+;


			          "a Mensagem: "             +CRLF+;


						 cSubject                   +CRLF+;


						 "p/ o eMail: " + aTo, "Atenção" )


       END


   next


Return nil



id=code>id=code>
O Componete CDO.Message..eh bem interessante...tem mais opçoes q vcs podem usar...como enviar um HTML para ele ficar no corpo do email...acho q isso aki deve ajudar vcs :


http://www.w3schools.com/asp/asp_send_email.asp


Veja a configuraçao de seus provedores:


http://www.truquesemacetes.com/html/sm/dc/incredimail/pop3_smtp.htm


Bom..mais..mastigado q isso...soh se eu montar as telas tb...neh..hehehe.


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Theotokos
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


Theotokos
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Vou postar a forma que estou fazendo, pois mesmo usando o do ale, esta dando a mensagem, DISP_E_MEMBERNOTFOUND.


smtp.live.com


25


Function fEmail()


   Local oDlg, aCtl[ 22 ], oFont


   Local cMailServer := PadR( "smtp.live.com", 60 ), ;             	// servidor de correo


         cFrom       := PadR( "rone_jesus@hotmail.com", 60 ), ;        		// remitente


         cTo         := PadR( "rone_jesus@hotmail.com", 180 ), ; 		// destinatario (uno o varios separados con comas)


         cBCC        := PadR( "rone_jesus@hotmail.com", 180 ), ; 		// copias ocultas a (uno o varios separados con comas)


         cAttach     := Space( 180 ),;												// archivo anexo (uno o varios separados con comas)


         cSubject    := Space( 60 ), ;                              		// asunto


         cBody       := Space( 500 ), ;                             		// cuerpo del mensaje


         nPort       := 25, ;                                      		// puerto usado por el servidor de correo


         cUser       := Space( 60 ), ;                              		// nombre de usuario para autenticación


         cPass       := Space( 30 )                                 		// contraseña para autenticación


   DEFINE FONT oFont NAME "Arial" SIZE 0, -16


   DEFINE DIALOG oDlg FROM 0, 0 TO 455, 703 PIXEL ;


          TITLE "Enviar Email"


   @ 10,  5 SAY aCtl[ 1 ] PROMPT "Servidor SMTP :" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 70, 11 PIXEL


   @ 10, 80 GET aCtl[ 2 ] VAR cMailServer OF oDlg ;


            FONT oFont  UPDATE  PICTURE "@K" ;


            SIZE 206, 11 PIXEL


   @ 10,294 SAY aCtl[ 3 ] PROMPT "Porta :" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 30, 11 PIXEL


   @ 10,320 GET aCtl[ 4 ] VAR nPort OF oDlg ;


            FONT oFont  UPDATE  PICTURE "@K ####" ;


            SIZE 24, 11 PIXEL


   @ 24,  5 SAY aCtl[ 5 ] PROMPT "Remetente:" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 70, 11 PIXEL


   @ 24, 80 GET aCtl[ 6 ] VAR cFrom OF oDlg ;


            FONT oFont  UPDATE  PICTURE "@K" ;


            SIZE 264, 11 PIXEL


   @ 39,  5 SAY aCtl[ 7 ] PROMPT "Destinátario:" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 70, 11 PIXEL


   @ 39, 80 GET aCtl[ 8 ] VAR cTo OF oDlg ;


            FONT oFont  UPDATE  PICTURE "@K" ;


            SIZE 264, 11 PIXEL


   @ 54,  5 SAY aCtl[ 9 ] PROMPT "Copia para:" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 70, 11 PIXEL


   @ 54, 80 GET aCtl[ 10 ] VAR cBCC OF oDlg ;


            FONT oFont  UPDATE  PICTURE "@K" ;


            SIZE 264, 11 PIXEL


   @ 69,  5 SAY aCtl[ 11 ] PROMPT "Anexar :" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 70, 11 PIXEL


   @ 69, 80 GET aCtl[ 12 ] VAR cAttach OF oDlg  PICTURE "@K" ;


            FONT oFont  UPDATE ;


            SIZE 253, 11 PIXEL // ACTION fAddAttach( aCtl[ 12 ] ) ; // descomentar para FWH 8.12 o posterior


   @ 69,333 BUTTON "..." OF oDlg SIZE 10, 10 PIXEL ACTION fAddAttach( aCtl[ 12 ] )


   @ 84,  5 SAY aCtl[ 13 ] PROMPT "Assunto:" OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 70, 11 PIXEL


   @ 84, 80 GET aCtl[ 14 ] VAR cSubject OF oDlg ;


            FONT oFont  UPDATE PICTURE "@K" ;


            SIZE 264, 11 PIXEL


   @ 99,  5 SAY aCtl[ 15 ] PROMPT "Autenticação Usuário : " OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 80, 11 PIXEL


   @ 99, 87 GET aCtl[ 16 ] VAR cUser OF oDlg ;


            FONT oFont  UPDATE PICTURE "@K" ;


            SIZE 118, 11 PIXEL


   @ 99,213 SAY aCtl[ 17 ] PROMPT "Senha : " OF oDlg ;


            FONT oFont UPDATE ;


            SIZE 44, 11 PIXEL


   @ 99,259 GET aCtl[ 18 ] VAR cPass OF oDlg PASSWORD ;


            FONT oFont  UPDATE  PICTURE "@K";


            SIZE 85, 11 PIXEL


   @118,  6 SAY aCtl[ 19 ] PROMPT "Corpo da Mensagem" OF oDlg ;


            SIZE 100, 11 PIXEL ;


            FONT oFont 


   @126, 10 GET aCtl[ 20 ] VAR cBody OF oDlg ;


            FONT oFont MULTILINE  UPDATE ;


            SIZE 330, 72 PIXEL


   @208,213 BUTTON aCtl[ 21 ] PROMPT "&Enviar" OF oDlg ;


            FONT oFont SIZE 53, 16 PIXEL  ;


            ACTION fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )


   @208,292 BUTTON aCtl[ 22 ] PROMPT "&Sair" OF oDlg ;


            FONT oFont SIZE 53, 16 PIXEL ACTION oDlg:End()


   ACTIVATE DIALOG oDlg CENTERED ;


            VALID ( oFont:End(), .T. )


Return Nil


//---------------------------------------------------------------------------------------------//


Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )


   Local oCfg, oMsg, oError, nEle, cToken, ;


         aAttach  := {}, ;


         lAuth    := ! Empty( cUser ) .and. ! Empty( cPass ), ;


         nSendOpt := 2 // send using: 1 = pickup folder 2 = port 3 = remote mail server


   Default nPort    := 25, ;


           cSubject := "", ;


           cBody    := ""


   If "GMAIL.COM" $ Upper( cMailServer ) .and. ( Empty( cUser ) .or. Empty( cPass ) )


      MsgStop( "Com GMail são requeridos nome do usuario e senha", "Atenção" )


      Return .f.


   EndIf


   CursorWait()


   nEle := 1


   While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )


      AAdd( aAttach, cToken )


   EndDo


   Try


    	oCfg := CREATEOBJECT( "CDO.Configuration" )


      WITH OBJECT oCfg:Fields


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"       ):Value := cMailServer


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"   ):Value := nPort


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"        ):Value := nSendOpt


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAuth


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"       ):Value := .t.


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"     ):Value := cUser


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"     ):Value := cPass


  	 		  :Update()


      END WITH


		oMsg := CreateObject( "CDO.Message" )


      With Object oMsg


         :Configuration = oCfg


         :From          = cFrom 


         :To            = cTo 


         :Subject       = cSubject 


         :TextBody      = cBody


         For nEle := 1 To Len( aAttach )


            :AddAttachment = aAttach[ nEle ]


         Next


         If ! Empty( cBCC )


            :BCC = cBCC


         EndIf


         :Send()


      End With


   Catch oError


      CursorArrow()


      MsgStop( "Não foi possível enviar a mensagem" + CRLF  + "Error: " + cValToChar( oError:GenCode) + CRLF + ;


               "SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;


               "SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensagem: " + oError:Description )


      oCfg := Nil


      oMsg := Nil


      Return .f.


   End Try


   oCfg := Nil


   oMsg := Nil


//   SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 )


   CursorArrow()


Return .t.


//---------------------------------------------------------------------------------------------//


Static Function fAddAttach( oGet )


   Local cFile, ;


         cAttach := oGet:VarGet()


   cFile := cGetFile( "*.*", "Selecione o arquivo" )


   If ! Empty( cFile )


      cAttach := Lower( PadR( AllTrim( cAttach ) + If( ! Empty( cAttach ), ",", "" ) + AllTrim( cFile ), 180 ) )


   EndIf


   oGet:cText( cAttach )


Return Nil


Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Ale SB
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Ale SB
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Rone..faz um teste ae.


Pegue este exemplo q eu passei...p/ enviar email, e testa ele do jeito q esta ai.


Atençao, use da mesma forma q eu passei, configure direto pelo codigo...seu email..senha...etc...nao use nada da sua rotina.


Depois reporte..pra gente.


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>


Editado por - Ale SB on 16/03/2010  14:33:31



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Theotokos
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


Theotokos
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Rone..faz um teste ae.


Pegue este exemplo q eu passei...p/ enviar email, e testa ele do jeito q esta ai.


Atençao, use da mesma forma q eu passei, configure direto pelo codigo...seu email..senha...etc...nao use nada da sua rotina.


Depois reporte..pra gente.


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>


Editado por - Ale SB on 16/03/2010  14:33:31




id=quote>id=quote>
NÃO ACEITOU!!! MENSAGEM NAO FOI POSSIVEL ENVIAR O EMAIL...


Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Ale SB
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Ale SB
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Me mostre como vc fez !, posta o codigo ai..da forma q vc testou agora.


Seu FireWall nao esta bloqueando alguma porta ?


qual a versao do Fw q esta usando ?


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		aferra
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


aferra
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Fala Ale, blz ???


bem, funcionou com hotmail muito rapido....., porem com o do terra não foi...


Alessandroid=blue>


FW20d+CL53b+Blk7+@Say+CDX


FW9.07+xHb121+PellesC+CDX


"Uma imaginação bem canalizada é fonte de grandes proezas"id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Ale SB
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Ale SB
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Fala Ale, blz ???


bem, funcionou com hotmail muito rapido....., porem com o do terra não foi...


Alessandroid=blue>


FW20d+CL53b+Blk7+@Say+CDX


FW9.07+xHb121+PellesC+CDX


"Uma imaginação bem canalizada é fonte de grandes proezas"id=red>




id=quote>id=quote>
Fala Ale...ow..entao..o Terra nao eh SSL..se tem q deixar  isso aki como .F.


:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"       ):Value := lSSL


Para cada provedor q vc estiver usando tem q verificar as configuraçoes dele, Porta, requer autenticaçao(.t./.f.), Provedor SSL(.t./.f.)


estas configuraçoes de cada provedor, esta no link q eu passei..veja la...


qq coisa grita ai..pra nois...


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Theotokos
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


Theotokos
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Me mostre como vc fez !, posta o codigo ai..da forma q vc testou agora.


  Copie exatamente a tua rotina, e troquei o que vc falou, chamei a rotina atraves do menu.


Seu FireWall nao esta bloqueando alguma porta ?


nao testei, mas a configuração no outlook funciona para hotmail


qual a versao do Fw q esta usando ?


fivewin 7.12


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>




id=quote>id=quote>
Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Ale SB
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Ale SB
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:
Me mostre como vc fez !, posta o codigo ai..da forma q vc testou agora.


  Copie exatamente a tua rotina, e troquei o que vc falou, chamei a rotina atraves do menu.


Seu FireWall nao esta bloqueando alguma porta ?


nao testei, mas a configuração no outlook funciona para hotmail


qual a versao do Fw q esta usando ?


fivewin 7.12


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>




id=quote>id=quote>
Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)




id=quote>id=quote>
Mesmo assim, kero ver como vc fez, mostra ai


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Theotokos
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


Theotokos
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:



citação:
Me mostre como vc fez !, posta o codigo ai..da forma q vc testou agora.


  Copie exatamente a tua rotina, e troquei o que vc falou, chamei a rotina atraves do menu.


Seu FireWall nao esta bloqueando alguma porta ?


nao testei, mas a configuração no outlook funciona para hotmail


qual a versao do Fw q esta usando ?


fivewin 7.12


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>




id=quote>id=quote>
Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)




id=quote>id=quote>
Mesmo assim, kero ver como vc fez, mostra ai


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>




id=quote>id=quote>
***********************************************************


********************************************************************************


Static Function Config_Mail(cServ,nPort,cUser,cPass,lAut,lSSL)


********************************************************************************


  local lRet := .f.


  local oCfg, oError


  DEFAULT cServ := "smtp.live.com"  //--> SERVIDOR SMTP - "smtp.servidor.com.br"


  DEFAULT nPort := 25


  DEFAULT cUser := "rone_jesus@hotmail.com"  //--> USUARIO


  DEFAULT cPass := "minhasenha"  //--> SENHA


  DEFAULT lAut  := .t.


  DEFAULT lSSL  := .t.


  TRY


    oCfg := CREATEOBJECT( "CDO.Configuration" )


      WITH OBJECT oCfg:Fields


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"       ):Value := cServ


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"   ):Value := nPort


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"        ):Value := 2


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut


           :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"       ):Value := lSSL


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"     ):Value := cUser


           :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"     ):Value := cPass


  	 		  :Update()


      END WITH


      lRet := .t.


  CATCH oError


    MsgInfo( "Não Foi possível Enviar o e-Mail!"  +CRLF+ ;


             "Error: "     + Transform(oError:GenCode,   nil) + ";" +CRLF+ ;


             "SubC: "      + Transform(oError:SubCode,   nil) + ";" +CRLF+ ;


             "OSCode: "    + Transform(oError:OsCode,    nil) + ";" +CRLF+ ;


             "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;


             "Mensaje: "   + oError:Description, "Atenção" )


  END


  //--> FIM DAS CONFIGURAÇOES.


  if lRet


     Envia_Mail(oCfg)


  endif


Return lRet


********************************************************************************


Function Envia_Mail(oCfg)


********************************************************************************


  local aAttach := {}, aTo := {}


  local cToken


  local nEle


  local oMsg


  local cFrom, cSubject, cMsg, cAttach


  cFrom    := "Ale SB "  //--> DE 


  aTo      := { "ale.seribeli@hotmail.com","kmt_karinha@pop.com.br","joao@pleno.com.br" } //--> PARA	


  cSubject := "Teste de Envio de eMail - FW"  //--> ASSUNTO


  cMsg     := "NOIS TRUPICA MAIS NAO CAI..."


  cAttach   := "&cCamSistema\spfc.jpg,&cCamSistema\caipira.jpg"     // ANEXO   


  nEle := 1


   While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )


      AAdd( aAttach, cToken )


   EndDo


   for i:=1 to len(aTo)


       TRY


         oMsg := CREATEOBJECT ( "CDO.Message" )


           WITH OBJECT oMsg


                :Configuration = oCfg


                :From = cFrom


                :To = aTo


                :Subject = cSubject


                :TextBody = cMsg


                For x := 1 To Len( aAttach )


                    :AddAttachment(AllTrim(aAttach[x]))


                Next


                :Send()


           END WITH


       CATCH


           MsgInfo("Não Foi Possível Enviar," +CRLF+;


			          "a Mensagem: "             +CRLF+;


						 cSubject                   +CRLF+;


						 "p/ o eMail: " + aTo, "Atenção" )


       END


   next


Return nil


.


.


. 


Menu 


 MenuItem "Enviar Email" ACTION Config_Mail()


.


.


.


Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		aferra
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


aferra
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ale, eu mudei conforme as instruções passadas pelo site, mesmo assim não foi, houve uma mudança de algumas portas do terra, talvez seja isso, porem nem com essa mudança deu certo., com o hotmail foi legal, mas para o cliente especifico vai pois ele possue hotmal, mas todavia, entretanto contudo não posso deixar amarrado por esse, vou estudar mais... qualquer coisa eu grito, rsrsrs vlw..


Alessandroid=blue>


FW20d+CL53b+Blk7+@Say+CDX


FW9.07+xHb121+PellesC+CDX


"Uma imaginação bem canalizada é fonte de grandes proezas"id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Ale SB
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Ale SB
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Rone...





citação:
********************************************************************************


Function Envia_Mail(oCfg)


********************************************************************************


  local aAttach := {}, aTo := {}


  local cToken


  local nEle


  local oMsg


  local cFrom, cSubject, cMsg, cAttach


  cFrom    := "Ale SB "  //--> DE 


  aTo      := { "ale.seribeli@hotmail.com","kmt_karinha@pop.com.br","joao@pleno.com.br" } //--> PARA	


  cSubject := "Teste de Envio de eMail - FW"  //--> ASSUNTO


  cMsg     := "NOIS TRUPICA MAIS NAO CAI..."


  cAttach   := "&cCamSistema\spfc.jpg,&cCamSistema\caipira.jpg"     // ANEXO   
id=red>
  nEle := 1


   While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )


      AAdd( aAttach, cToken )


   EndDo


   for i:=1 to len(aTo)


       TRY


         oMsg := CREATEOBJECT ( "CDO.Message" )


           WITH OBJECT oMsg


                :Configuration = oCfg


                :From = cFrom


                :To = aTo


                :Subject = cSubject


                :TextBody = cMsg


                For x := 1 To Len( aAttach )


                    :AddAttachment(AllTrim(aAttach[x]))


                Next


                :Send()


           END WITH


       CATCH


           MsgInfo("Não Foi Possível Enviar," +CRLF+;


			          "a Mensagem: "             +CRLF+;


						 cSubject                   +CRLF+;


						 "p/ o eMail: " + aTo, "Atenção" )


       END


   next


Return nil


.


.


. 


Menu 


 MenuItem "Enviar Email" ACTION Config_Mail()


.


.


.


Em Cristo! com Maria!!!


Rone O. Coura


************************


xHarbour + BCC55 + FiveWin + xDevStudio


************************


A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)





id=quote>id=quote>
Ja sabe oq ta errado neh...


cFrom    := "Ale SB "


tem q por seu email neh.


@braços Ale


aleseribeli@hotmail.com


Andradina/SP


logo02e.jpg


"Nóis é Jeca, mais nóis é Jóia"id=red>


Editado por - Ale SB on 16/03/2010  16:16:06



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
		

			


	
	

		

	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •