Enviar EMAIL.

Theotokos · March 16, 2010

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 := "mariadocarmo" //--> 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 := "rone_jesus@hotmail.com" //--> 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

MESMO ERRO!!!!!!!!!!!!!!!!!!!

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)

Ale SB · March 16, 2010

Rone...

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

Estes arquivos estao ai ?

se ele nao achar os anexos...tb da este erro de envio.

conferi ai.

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

Theotokos · March 16, 2010

citaÃ§Ã£o:
Rone...

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

Estes arquivos estao ai ?

se ele nao achar os anexos...tb da este erro de envio.

conferi ai.

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

id=quote>id=quote>

Vou testar sem arquivo em anexo!!!

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)

Theotokos · March 16, 2010

citaÃ§Ã£o:

citaÃ§Ã£o:
Rone...

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

Estes arquivos estao ai ?

se ele nao achar os anexos...tb da este erro de envio.

conferi ai.

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

id=quote>id=quote>
Vou testar sem arquivo em anexo!!!

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>

TESTEI SEM ANEXO, MAS DA A MESMA MENSAGEM, A DIFERENÃ‡A Ã‰ QUE DEMOROU MAIS PARA APARECER A MENSAGEM...

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)

Luiz Fernando · March 16, 2010

Depois de algumas tentativas frustadas de passar email via sistema sem usar o outlook, finalmente consegui com esta rotina...vlw Ale pela contribuiÃ§Ã£o...

Obrigado

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0

Ale SB · March 16, 2010

Bom Rone...

Se nao for agora..ai meu amigo..chama uma Benzedeira..q se ta zicado...heheh

Testa ai por este Executavel q eu montei.

E para desencargo de conciencia, compilei com a mesma versao do Fw q vc usa( fwh712).

http://www.fivewin.com.br/exibedicas.asp?id=1039

Nao esqueÃ§a de reportar ai pra nois o resultado !

Ps.: vc ta usando q versao do Windows ?

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

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

Theotokos · March 16, 2010

citaÃ§Ã£o:

citaÃ§Ã£o:
Bom Rone...

Se nao for agora..ai meu amigo..chama uma Benzedeira..q se ta zicado...heheh

Testa ai por este Executavel q eu montei.

E para desencargo de conciencia, compilei com a mesma versao do Fw q vc usa( fwh712).

http://www.fivewin.com.br/exibedicas.asp?id=1039

Nao esqueÃ§a de reportar ai pra nois o resultado !

Ps.: vc ta usando q versao do Windows ?

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

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

id=quote>id=quote>
Ã‰ meu amigo, vou ter que chamar benzedeira... nÃ£o deu certo, acontece a mesma coisa, a mesma mensagem de erro...

Olhei o teu cÃ³digo e comparei com o meu, o que refere a configuraÃ§Ã£o esta tudo igual.

Mas nÃ£o envia o bandido do email.

Ja tentei com firewall desativado tambem, e nada...

vou posta a minha rotina pra vc ver, vis algumas alteraÃ§Ãµes mas quanto a configuraÃ§Ã£o fica a mesma coisa...

Function fEmail()

Local oDlg, aCtl[ 22 ], oFont

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

cFrom := Space( 60 ), ; // remitente

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

cBCC := Space( 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

*

Local cProvedor := PadR("Hotmail",20)

Local aProvedor := { "UOL (Universo On-Line)","Terra","IG (Internet Generation)",;

"iBest","iTelefÃ´nica","Gmail (Google Mail)","Yahoo","Hotmail","BOL (Brasil On-Line)"}

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 "Provedor" OF oDlg ;

FONT oFont UPDATE ;

SIZE 70, 11 PIXEL

@ 10,80 COMBOBOX aCtl[2] VAR cProvedor Of oDlg ;

ITEMS aProvedor SIZE 264, 12 PIXEL Valid !Empty(cProvedor) ;

FONT oFont UPDATE PICTURE "@K"

@ 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( cProvedor, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass ))

@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( cProvedor, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass )

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

*

* Nome Provedor, pop3, smtp, Autenticacao, portasmtp, portapop, ssl

*

Local aProvedor := { {"UOL (Universo On-Line)",'pop.uol.com.br','smtp.uol.com.br',.t.,25,110,.f.}, ;

{"Terra",'pop.terra.com.br','smtp.terra.com.br',.t.,25,110,.f.},;

{"IG (Internet Generation)",'pop.ig.com.br','smtp.ig.com.br',.t.,465,995,.t.},;

{"iBest",'pop.ibest.com.br','smtp.ibest.com.br',.t.,465,995,.t.},;

{"iTelefÃ´nica",'pop.itelefonica.com.br','smtp.itelefonica.com.br',.t.,25,110,.f.},;

{"Gmail (Google Mail)",'pop.gmail.com.br','smtp.gmail.com.br',.t.,465,995,.f.},;

{"Yahoo",'pop.mail.yahoo.com.br','smtp.mail.yahoo.com.br',.t.,25,110,.f.},;

{"Hotmail",'pop3.live.com','smtp.live.com',.t.,25,995,.t.},;

{"BOL (Brasil On-Line)",'pop3.bol.com.br','smtp.bol.com.br',.t.,25,110,.f.} }

Default cSubject := "", ;

cBody := ""

*

nPosicao := ASCAN(aProvedor, {|a| Upper(AllTrim(a[1])) = Upper(AllTrim(cProvedor)) } )

*

nPort := aProvedor[nPosicao, 5]

lAuth := aProvedor[nPosicao, 4]

cMailServer := aProvedor[nPosicao, 3]

cSSL := aProvedor[nPosicao, 7]

*

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

If lAuth

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

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

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

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

End

:Update()

END WITH

oMsg := CreateObject( "CDO.Message" )

With Object oMsg

:Configuration = oCfg

:From = AllTrim(cFrom)

:To = AllTrim(cTo)

:Subject = AllTrim(cSubject)

:TextBody = AllTrim(cBody)

For nEle := 1 To Len( aAttach )

:AddAttachment = aAttach[ nEle ]

Next

If ! Empty( cBCC )

:BCC = AllTrim(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

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

Quem Sabe Aparece uma Luz divina, para clarear o problema...

Se vc puder fazer o favor de testa-la, ai vai ser o cara...

Muito obgdo por tudo!!!

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>

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)

Ale SB · March 16, 2010

Rone, pronto, agora acertei seu codigo:

Tinha excesso de espaÃ§os,...pqna falta de atenÃ§ao.

Uma dica, acho desnecessario o uso da funÃ§ao PAD..mas..enfim..acerta isso aki q agora vai funcionar:

If lAuth

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

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

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

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

id=red>

End

id=code>

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( alltrim(cAttach) )id=red>

Return Nil

id=code>id=code>

Resolvido...

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

Editado por - Ale SB on 17/03/2010 00:28:50

aferra · March 17, 2010

Exatamente, esse Ã© o Kra, vlw Ale.... "eitcha nomi bunitu de bom sÃ´".....rsrsrsrsrsrs

Alessandroid=blue>

FW20d+CL53b+Blk7+@Say+CDX

FW9.07+xHb121+PellesC+CDX

"Uma imaginaÃ§Ã£o bem canalizada Ã© fonte de grandes proezas"id=red>

Theotokos · March 17, 2010

citaÃ§Ã£o:
Rone, pronto, agora acertei seu codigo:

Tinha excesso de espaÃ§os,...pqna falta de atenÃ§ao.

Uma dica, acho desnecessario o uso da funÃ§ao PAD..mas..enfim..acerta isso aki q agora vai funcionar:
If lAuth

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

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

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

:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := alltrim(cPass)
id=red>
End

id=code>id=code>
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( alltrim(cAttach) )id=red>

Return Nil

id=code>id=code>
Resolvido...

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

"NÃ³is Ã© Jeca, mais nÃ³is Ã© JÃ³ia"id=red>

Editado por - Ale SB on 17/03/2010 00:28:50

id=quote>id=quote>

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

REALMENTE RESOLVIDO, MUITO OBRIGADO....

VOCÃŠ Ã‰ O CARAAAAAAAAAAAA!!!!!!!!!!!!!!

COM DEUS....

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)

LUIS1361303120 · March 17, 2010

se eu tenho outro tipo de conta que nao seja hotmail.com e sim com o nome www.univelox.com.br,,, existe alguma maneira de usar isso, pois eu so uso ele para mandar email e seria muito util par ao meu trabalho, obrigado ale,,, e funciona certinho o que vc postou parabens... faz tempo que estava procurando uma coisa desssas e usei de tudo ate uma dos DOS......

Ale SB · March 17, 2010

citaÃ§Ã£o:
se eu tenho outro tipo de conta que nao seja hotmail.com e sim com o nome www.univelox.com.br,,, existe alguma maneira de usar isso, pois eu so uso ele para mandar email e seria muito util par ao meu trabalho, obrigado ale,,, e funciona certinho o que vc postou parabens... faz tempo que estava procurando uma coisa desssas e usei de tudo ate uma dos DOS......

id=quote>id=quote>

Blz Luis;

pode usar sim, esta rotina funciona com qq tipo de provedor, basta vc saber as configuraÃ§oes de email de seu Provedor...eh soh entrar em contato ai com eles e pedir as configuraÃ§oes;

- smtp

- numero da porta de saida

- usuario

- senha

- se requer autenticaÃ§ao

- se necessita conexao SSL

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

DEFAULT nPort := 25

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

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

DEFAULT lAut := .t.

DEFAULT lSSL := .t.

id=code>id=code>

eh isso ai..tendeu ?!

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

sygecom · March 17, 2010

OlÃ¡ Ale,

Leonardo Machado

Alvorada-RS

Hwgui + Harbour

leonardodemachado@hotmail.com

Ale SB · March 17, 2010

citaÃ§Ã£o:
OlÃ¡ Ale,

Boa sua funÃ§Ã£o, vou testar tambÃ©m, porem sabe me dizer como se envia solicitaÃ§Ã£o de leitura ?

Leonardo Machado

Alvorada-RS

Hwgui + Harbour

leonardodemachado@hotmail.com

id=quote>id=quote>

Blz Leonardo, entao quem me passou a dica para usar este componete do Windows foi o Luiz Batata, depois eu dei uma estudada melhor nos recursos deste componete (CDOSys) e fui descobrindo alguns macetes ...eh muito boa mesma...se o cara tiver tempo ele pode desenvolver um gerenciador de eMail's em FW tranquilo soh usando ela.

Mas, enfim..para vc pedir solicitaÃ§ao de Leitura eh simples...mas...pelo q eu sei soh eh pedido a solicitaÃ§Ã£o de Envio de leitura se o cara abrir a mensagem por algum gerenciados de eMail instalado no micro dele.

Usando gerenciadores WEB, ate onde eu sei e ja testei eles nao pedem confirmaÃ§ao.

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

:Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := "ale.seribeli@hotmail.com"

:Fields:update()

id=red>

:Send()

END WITH

id=code>id=code>

@braÃ§os Ale

aleseribeli@hotmail.com

Andradina/SP

Editado por - Ale SB on 17/03/2010 21:54:52

sygecom · March 17, 2010

Vlw Ale, deu certo, e sei dessa limitaÃ§Ã£o sim da confirmaÃ§Ã£o de leitura, apenas repasso para os clientes essa limitaÃ§Ã£o.

Leonardo Machado

Alvorada-RS

Hwgui + Harbour

leonardodemachado@hotmail.com

CleitonSH · December 2, 2010

Aproveitando este tÃ³pico, estou tentando inserir um arquivo HTML no corpo do e-mail, mas nÃ£o vai de jeito nenhum. JÃ¡ tentei inserindo o arquivo como anexo, mas o mesmo nÃ£o aparece no corpo do e-mail.

Cleiton

FWH906+xHarbour 1.2.1+WorkShop, FW20d+Clipper5.2+Clip53b

atnsoft · December 2, 2010

Estamos na mesma luta.

Veja aqui:

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=18439

'>

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=18439

Coloque isso:

:TextBody := "Texto puro"+CRLF+"blabla"

:HTMLBody := "

Texto em html/h1>"

:CreateMHTMLBody = "file:c:\emails\teste.htm" // do arquivo htm

AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce

CleitonSH · December 2, 2010

Beleza Antenor, deu certo. Obrigado.

Cleiton

FWH906+xHarbour 1.2.1+WorkShop, FW20d+Clipper5.2+Clip53b

CleitonSH · December 3, 2010

Pra quais contas vocÃªs conseguiram configurar?

NÃ£o estou conseguindo configurar para o BOL, somente para HOTMAIL.

Cleiton

FWH906+xHarbour 1.2.1+WorkShop, FW20d+Clipper5.2+Clip53b

atnsoft · December 3, 2010

Servidor de envio de mensagens: smtps.bol.com.br

Porta de SMTP: 587 ou 465

Requer conexÃ£o segura: sim

Meu servidor requer autenticaÃ§Ã£o: sim

AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce

DonJuan · December 4, 2010

citaÃ§Ã£o:
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)

id=quote>id=quote>

Veja esse exemplo se resolveria seu caso

http://www.fivewin.com.br/exibedicas.asp?id=1051

FHW 10.6, XHB1.2.1, PELLESC 6.0, XDEV 7.2, SQLRDD, MySql, Firebird, Postgres

"MIGRE SEUS SISTEMAS EM CLIPPER PARA 32BITS COM BAMCOS SQL"

wesllen · December 21, 2010

Boa tarde.

Estou testando esse recurso pois preciso enviar e-mail pelo GMAIL e eles sÃ³ nÃ£o sÃ£o enviados quando coloco um anexo em HTM (boleto de cobranÃ§a).

Como proceder neste caso, ou seja, enviar um arquivo .HTM

AgradeÃ§o pela grande ajuda.

[]'s

Wesllen

Enviar EMAIL.

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Texto em html/h1>"

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation