Enviar email

[edutraini]

Bom dia

Pessoal uso essa rotina para enviar email

DEFINE MAIL oMAIL ;

SUBJECT vn_assunto ; // assunto

TO nEmail ; // para

TEXT vn_mensagem+CRLF+CRLF+nMeuIP ; //mensagem

FILES nArq,"" FROM USER

// com este vai abrir a tela de novo e-mail no outlook com tudo preenchido bastado apenas o usuario

SEND MAIL oMAIL // clicar em enviar, caso vc nao coloque o FROM USER ele mando o e-mail direto nem abre o outlook.

não sei porque mais em algumas maquinas não abre o outlook alguém poderia me dar uma ideia

de como sair do outlook e poder mandar email diretamente pelo meu programa

[kapiaba]

O outlook express está definido como enviador oficial de email(padrão) para o rwindows?

[eevaldo]

isso acontece porque o outlook nao esta definido como padrao nessas maquinas , se quiser enviar emal direto da aplicação , procure por enviar email no dicas , ou mesmo aqui no forum , tem varios exemplos

[edutraini]

sim

[zekasan]

parte de programa que uso:

Function EnviaMail() //(oassunto,odestino,otexto)

local cUser := Space(50), cPass := Space(15), cRemt := Space(50), ;

cDest := Space(250), cTime, cAssuntoE := Space(500),;

cCC := "", cCCO := ""

local oDlg, oSay[12], oBtn[2], nItem := 0

local cDados, i

private oGet[8]

if IsInternet() == .f.

msgstop("Necessário conexão com internet."+CRLF+"Operação cancelada","Informação")

return .f.

endif

cTxt := CORPO

cAssuntoE := ASSUNTO

cDest := FATURA->EMAI

Private oCab, oGru, oCon, oCod, oMenu, lSair := .f., oM2, lCheck := .t.

if( lRet := Config_Mail(Lower(alltrim(iEMAIL_CONTA)),Alltrim(iEMAIL_SENHA),Lower(Alltrim(iEMAIL_CONTA)),;

Lower(Alltrim(cDest)),Lower(Alltrim(cCC)),Lower(Alltrim(cCCO)), cTxt, cAssuntoE ), ;

oText_Log:Add("Fatura "+FATURA->NUME+" enviada com sucesso para o e-mail "+FATURA->EMAI+" - "+time()),)

Return Nil

Function Config_Mail(cUser,cPass,cRemt,cDest, cCC, cCCO, cTxt, cSubject)

local lRet := .f.

local oCfg, oError

local cServ := iEMAIL_PROVEDOR

local nPort := iEMAIL_PORTA

local lAut := iEMAIL_AUTENTICA

local lSSL := iEMAIL_SSL

* cUser := email_usuario

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

oText_Log:Add("ERRO: problema na configuração CDO.Configuration na Fatura "+FATURA->NUME+" ,e-mail "+FATURA->EMAI+" - "+time())

/* 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

lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject)

endif

Return lRet

Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject)

local cToken

local lRet := .f.

cTo := cTo //--> PARA

cCC := cCC //--> COM COPIA

cBCC := cBCC //--> COM COPIA OCULTA

TRY

oMsg := CREATEOBJECT ( "CDO.Message" )

WITH OBJECT oMsg

:Configuration := oCfg

:From := cFrom

:To := cTo

:CC := cCC

:BCC := cBCC

:Subject := cSubject

:TextBody := cMsg

//:HTMLBody = cMsg

:AddAttachment(ARQUIVO_PDF)

:Send()

END WITH

lRet := .t.

CATCH

oText_Log:Add("ERRO: problema na configuração CDO.Message na Fatura "+FATURA->NUME+" ,e-mail "+FATURA->EMAI+" - "+time())

lRet := .f.

END

Return lRet