Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Jmail com email Gmail

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Jmail com email Gmail

Mensagem por satori em 27/1/2011, 20:46

Boa noite! Estou com um problema e recorro à vocês pra ver se alguém me dá uma dica:
Fiz um programa para enviar automaticamente os arquivos XML das NF-es para os clientes.
Se eu utilizar uma conta do Terra ou UOL, por exemplo, funciona perfeitamente.
Se eu utilizar uma conta do estadao.com.br (quem gerencia é o gmail), dá erro, como se não tivesse sido autenticado. Segue o código:

Código:
    LOCAL oEmail as object
      oEmail = CREATEOBJECT("JMail.Message")
      oEmail.Logging = .T.
      oEmail.Silent = .T.
      oEmail.ReturnReceipt = .T.
      oEmail.From = "meuemail@estadao.com.br"
      oEmail.FromName = "satori"
      oEmail.AddRecipient(var_email,"Depto.Fiscal")
      oEmail.Subject = "Envio de arquivo XML ref.NF-e "+ALLTRIM(lcnf)
      oEmail.Body = "Segue o arquivo XML referente nossa NF-e de número XXX"+ ;
              CHR(13)+"Atenciosamente, "+;
              CHR(13)+" "+;
              CHR(13)+"Nome da Empresa Ltda. "+;
              CHR(13)+"E-mail: [Você precisa estar registrado e conectado para ver este link.]"
      oEmail.AddAttachment("c:\nfexml"+var_nomearq)


      oEmail.MailServerUserName = 'meuemail@estadao.com.br'
      oEmail.MailServerPassword = 'minhasenha'
     
      IF oEmail.SEND("smtp.gmail.com")

          MESSAGEBOX("Mensagem enviada!")
      ELSE
          MESSAGEBOX("Ocorreu um erro: "+;
                    CHR(13)+STR(oEmail.errorcode)+;
                    CHR(13)+oEmail.errormessage,0)                   
      ENDIF
      oEmail = null     

Agora, se eu estiver com o Avast (versão atual) instalado e configurado para verificar emails enviados, o programa envia o email (porque o Avast gerencia o envio pelo smtp). Testei no XP e no Vista, usando contas de email do estadao/gmail, SEM o Avast, dá erro. Usando outra conta de email (terra/uol) tudo beleza.
Alguém tem alguma dica?
Obrigada!


satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por alceu11 em 28/1/2011, 10:29

Isto nao seria problema de porta?

omsg.Send("smtp.dominio.com.br:465")

algumas enderecos e as portas

{"seuemail@hotmail.com", "smtp.live.com", 25, .t. },;
{"@yahoo.com.br", "smtp.mail.yahoo.com.br", 25, .f. },;
{"@gmail.com", "smtp.gmail.com", 465, .t. },;
{"@uol.com.br", "smtp.uol.com.br", 25, .f. },;
{"@bol.com.br", "smtp.bol.com.br", 25, .f. },;
{"@terra.com.br", "smtp.terra.com.br", 25, .f. },;
{"@ig.com.br", "smtp.ig.com.br", 465, .t. },;
{"@ibest.com.br", "smtp.ibest.com.br", 465, .t. },;
{"@itelefonica.com.br","smtp.itelefonica.com.br", 25, .f. } }

De um olhada no manual esta no forum
[Você precisa estar registrado e conectado para ver este link.]
Se encontrar a solucao poste no Forum!!

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por satori em 28/1/2011, 10:47

Olá Alceu.
Então, já testei colocando oEmail.SEND("smtp.gmail.com:465") e dá a mesma coisa. O grande mistério é que só com contas gmail é que dá a mensagem.
"Erro 530 - the message was undeliverable. All servers failed to receive the message".
Rolling Eyes

satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por Marcos Guedes em 28/1/2011, 23:24

troque:
Código:
oEmail.Silent = .T.

por:
Código:
oEmail.Silent = .F.

e veja se emite alguma mensagem de erro e disponibilize-a para nós.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por satori em 29/1/2011, 09:01

Olá Marcos, vou testar e depois coloco o resultado. Obrigada!

satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por satori em 31/1/2011, 13:12

Boa tarde, definindo oEmail.Silent = .F., a mensagem que dá é a seguinte:

Mensagem de erro escreveu:OLE IDispatch exception code 0 from jmail. Message: The message was undeliverable. All servers failed to receive the message.

Procurei por essa mensagem na Internet mas não encontrei nada esclarecedor
Crying or Very sad

satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por satori em 31/1/2011, 15:04

Tem algum modo de forçar SSL na conexão? Pq o gmail pede a ativação de SSL, acho que o problema está ai. Alguma sugestão?

satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por memarques em 1/2/2011, 11:03

Caros

O Jmail não consegue usar SSL ...

Abraço

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por satori em 1/2/2011, 11:10

Então complicou! rsrs Não quero ter que usar um servidor smtp no cliente...vou testar com alguma outra ferramenta. Vou instalar em clientes com XP, Vista, Win7...Sugestões?
Muito obrigada, meninos.

satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por memarques em 1/2/2011, 11:27

Satori

Seguinte. O Jmail não consegue ler ou enviar email para contas que usam SSL, "MAS" com o winsock é possivel "ENVIAR" emails para essas contras na boa. Não é possivel "RECEBER" email via winsock com ssl, pelo menos procurei muito o "receber" emails via ssl e só achei LIBs pagas ou em .NET.

Procure no forum exemplos que usam o winsock para enviar emails, inclusive atraves de contas com ssl

Abraço
Mauro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por _batmanvfp_ em 1/2/2011, 12:15

em questão de SSL o hotmail necessita ai um rapaz testo e falo que funcionou
[Você precisa estar registrado e conectado para ver este link.]

mais em questão de email e componente . dificil mesmo, o melhor que consegui testando todos foi
yahoo com cdo2000 que tem bastante o assunto relacionado no foxite... tenta procurar na busca SSL ou GMAIL no foxite ve se tem exemplos lá

mais o ideal mesmo, que é o canal é utilizar apllication outlook , e ter uma manipulacao , o progress tudo orignial de uma ferramenta consistente
só que conforme o office o SO o outlook troca os nomes muda o codigo . etc ....


Última edição por _batmanvfp_ em 1/2/2011, 12:22, editado 1 vez(es)

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por Marcos Guedes em 1/2/2011, 12:21

Satori, caso você tenha interesse em testar com o winsock, dê uma pesquisada no fórum por "email" e "emails" (sem aspas), que certamente encontrarás algo.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por _batmanvfp_ em 1/2/2011, 13:49

crie 2 PRG
somente indicar endereços validos acabei de testar se o caso é enviar email pelo gmail ....


CDO2000.prg

Código:
#DEFINE cdoURLGetLatestVersion "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion"
#DEFINE cdoAnonymous 0   && Perform no authentication (anonymous)
#DEFINE cdoBasic 1   && Use the basic (clear text) authentication mechanism.
#DEFINE cdoSendUsingPort 2   && Send the message using the SMTP protocol over the network.
#DEFINE cdoXMailer "urn:schemas:mailheader:x-mailer"
 
DEFINE CLASS cdo2000 AS Custom
 
   PROTECTED aErrors[1], nErrorCount, oMsg, oCfg, cXMailer 
 
   nErrorCount = 0
 
   * Message attributes
   oMsg = Null
   cFrom = ""
   cReplyTo = ""
   cTo = ""
   cCC = ""
   cBCC = ""
   cAttachment = ""
 
   cSubject = ""
   cHtmlBody = ""
   cTextBody = ""
   cHtmlBodyUrl = ""
 
   cCharset = ""
 
   * Configuration object fields values
   oCfg = Null
   cServer = ""
   nServerPort = 25
   * Use SSL connection
   lUseSSL = .F.
   nConnectionTimeout = 30         && Default 30 sec's
   nAuthenticate = cdoAnonymous
   cUserName = ""
   cPassword = ""
   * Do not use cache for cHtmlBodyUrl
   lURLGetLatestVersion = .T.
 
   * Optional. Creates your own X-MAILER field in the header
   cXMailer = "VFP CDO 2000(CDOSYS) mailer Ver 1.1 2009"
 
   PROTECTED PROCEDURE Init
      This.aErrors = Null
   ENDPROC
 
   * Send message
   PROCEDURE Send
 
      WITH This
         .ClearErrors()
         .oCfg = CREATEOBJECT("CDO.Configuration")
         .oMsg = CREATEOBJECT("CDO.Message")
         .oMsg.Configuration = This.oCfg
      ENDWITH    
 
      * Fill message attributes
      LOCAL lnind, laList[1], loHeader, laDummy[1]
 
      IF This.SetConfiguration() > 0
         RETURN This.GetErrorCount()
      ENDIF
 
      IF EMPTY(This.cFrom)
         This.AddError("ERROR : From is Empty.")
      ENDIF
      IF EMPTY(This.cSubject)
         This.AddError("ERROR : Subject is Empty.")
      ENDIF
 
      IF EMPTY(This.cTo) AND EMPTY(This.cCC) AND EMPTY(cBCC)
         This.AddError("ERROR : To,CC and BCC all are Empty.")
      ENDIF
 
      IF This.GetErrorCount() > 0
         RETURN This.GetErrorCount()
      ENDIF
 
      This.SetHeader()
 
      WITH This.oMsg
 
         .From    = This.cFrom
         .ReplyTo  = This.cReplyTo
 
         .To      = This.cTo
         .CC      = This.cCC
         .BCC      = This.cBCC
         .Subject  = This.cSubject
 
         * Create HTML body from external HTML (file, URL)
         IF NOT EMPTY(This.cHtmlBodyUrl)
            .CreateMHTMLBody(This.cHtmlBodyUrl)
         ENDIF
 
         * Send HTML body. Creates TextBody as well
         IF NOT EMPTY(This.cHtmlBody)
            .HtmlBody = This.cHtmlBody
         ENDIF
 
         * Send Text body. Could be different from HtmlBody, if any
         IF NOT EMPTY(This.cTextBody)
            .TextBody = This.cTextBody
         ENDIF
 
         IF NOT EMPTY(.HtmlBody)
            .HtmlBodyPart.Charset = This.cCharset
         ENDIF
 
         IF NOT EMPTY(.TextBody)
            .TextBodyPart.Charset = This.cCharset
         ENDIF
 
         * Process attachments
         IF NOT EMPTY(This.cAttachment)
            * Accepts comma or semicolon
            * VFP 7.0 and later
            *FOR lnind=1 TO ALINES(laList, This.cAttachment, [,], [;])
            * VFP 6.0 and later compatible
            FOR lnind=1 TO ALINES(laList, CHRTRAN(This.cAttachment, [,;], CHR(13) + CHR(13)))
               lcAttachment = ALLTRIM(laList[lnind])
               * Ignore empty values
               IF EMPTY(laList[lnind])
                  LOOP
               ENDIF
 
               * Make sure that attachment exists
               IF ADIR(laDummy, lcAttachment) = 0
                  This.AddError("ERROR: Attacment not Found - " + lcAttachment)
               ELSE
                  * The full path is required.
                  IF    UPPER(lcAttachment) <> UPPER(FULLPATH(lcAttachment))
                     lcAttachment = FULLPATH(lcAttachment)
                  ENDIF
                  .AddAttachment(lcAttachment)
               ENDIF
            ENDFOR
         ENDIF
 
         IF NOT EMPTY(This.cCharset)
            .BodyPart.Charset = This.cCharset
         ENDIF
 
      ENDWITH
 
 
      IF This.GetErrorCount() > 0
         RETURN This.GetErrorCount()
      ENDIF
 
      This.oMsg.Send()
 
      RETURN This.GetErrorCount()
 
   ENDPROC
 
   * Clear errors collection
   PROCEDURE ClearErrors()
      This.nErrorCount = 0
      DIMENSION This.aErrors[1]
      This.aErrors[1] = Null
      RETURN This.nErrorCount
   ENDPROC
 
   * Return # of errors in the error collection
   PROCEDURE GetErrorCount
      RETURN This.nErrorCount
   ENDPROC
 
   * Return error by index
   PROCEDURE GetError
      LPARAMETERS tnErrorno
      IF   tnErrorno <= This.GetErrorCount()
         RETURN This.aErrors[tnErrorno]
      ELSE
         RETURN Null
      ENDIF
   ENDPROC
 
   * Populate configuration object
   PROTECTED PROCEDURE SetConfiguration
 
      * Validate supplied configuration values
      IF EMPTY(This.cServer)
         This.AddError("ERROR: SMTP Server isn't specified.")
      ENDIF
      IF NOT INLIST(This.nAuthenticate, cdoAnonymous, cdoBasic)
         This.AddError("ERROR: Invalid Authentication protocol ")
      ENDIF
      IF This.nAuthenticate = cdoBasic ;
            AND (EMPTY(This.cUserName) OR EMPTY(This.cPassword))
         This.AddError("ERROR: User name/Password is required for basic authentication")
      ENDIF
 
      IF    This.GetErrorCount() > 0
         RETURN This.GetErrorCount()
      ENDIF
 
      WITH This.oCfg.Fields
 
         * Send using SMTP server
         .Item(cdoSendUsingMethod)         = cdoSendUsingPort
         .Item(cdoSMTPServer)              = This.cServer
         .Item(cdoSMTPServerPort)         = This.nServerPort
         .Item(cdoSMTPConnectionTimeout)       = This.nConnectionTimeout
 
         .Item(cdoSMTPAuthenticate)        = This.nAuthenticate
         IF This.nAuthenticate = cdoBasic
            .Item(cdoSendUserName)            = This.cUserName
            .Item(cdoSendPassword)            = This.cPassword
         ENDIF
         .Item(cdoURLGetLatestVersion)         = This.lURLGetLatestVersion
         .Item(cdoSMTPUseSSL)             = This.lUseSSL
 
         .Update()
      ENDWITH
 
      RETURN This.GetErrorCount()
 
   ENDPROC
 
   *----------------------------------------------------
   * Add message to the error collection
   PROTECTED PROCEDURE AddError
      LPARAMETERS tcErrorMsg
      This.nErrorCount = This.nErrorCount + 1
      DIMENSION This.aErrors[This.nErrorCount]
      This.aErrors[This.nErrorCount] = tcErrorMsg
      RETURN This.nErrorCount
   ENDPROC
 
   *----------------------------------------------------
   * Format an error message and add to the error collection
   PROTECTED PROCEDURE AddOneError
      LPARAMETERS tcPrefix, tnError, tcMethod, tnLine
      LOCAL lcErrorMsg, laList[1]
      IF INLIST(tnError, 1427,1429)
         AERROR(laList)
         lcErrorMsg = TRANSFORM(laList[7], "@0") + ;
            "  " + laList[4]  + "  " + laList[3]
      ELSE
         lcErrorMsg = MESSAGE()
      ENDIF
      This.AddError(tcPrefix + ":" + TRANSFORM(tnError) + " # " + ;
         tcMethod + " # " + TRANSFORM(tnLine) + " # " + lcErrorMsg)
      RETURN This.nErrorCount
   ENDPROC
 
   *----------------------------------------------------
   * Simple Error handler. Adds VFP error to the objects error collection
   PROTECTED PROCEDURE Error
      LPARAMETERS tnError, tcMethod, tnLine
      *!*         This.AddError("VFP Error: " + TRANSFORM(tnError) + " # " + ;
      *!*            tcMethod + " # " + TRANSFORM(tnLine) + " # " + MESSAGE())
      This.AddOneError("ERROR: ", tnError, tcMethod, tnLine )
      RETURN This.nErrorCount
   ENDPROC
 
   *-------------------------------------------------------
   * Set mail header fields, if necessary. For now sets X-MAILER, if specified
   PROTECTED PROCEDURE SetHeader
      LOCAL loHeader
      IF NOT EMPTY(This.cXMailer)
         loHeader = This.oMsg.Fields
         WITH loHeader
            .Item(cdoXMailer) =  This.cXMailer
            .Update()
         ENDWITH
      ENDIF
   ENDPROC
 
ENDDEFINE



Email_Gmail.prg
fonte: [Você precisa estar registrado e conectado para ver este link.]

Código:
SET PROCEDURE TO C:\cdo2000.prg
loMail = NEWOBJECT("Cdo2000")

TRY
  LOCAL lcSchema, loConfig, loMsg, loError, lcErr
  lcErr = ""
  lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
  loConfig = CREATEOBJECT("CDO.Configuration")
  WITH loConfig.FIELDS
    .ITEM(lcSchema + "smtpserver") = "smtp.gmail.com"
    .ITEM(lcSchema + "smtpserverport") = 465 && ó 587
    .ITEM(lcSchema + "sendusing") = 2
    .ITEM(lcSchema + "smtpauthenticate") = .T.
    .ITEM(lcSchema + "smtpusessl") = .T.
    .ITEM(lcSchema + "sendusername") = "meuemail@gmail.com"
    .ITEM(lcSchema + "sendpassword") = "minhasenha"
    .UPDATE
  ENDWITH
  loMsg = CREATEOBJECT ("CDO.Message")
  WITH loMsg
    .Configuration = loConfig
    .FROM = "meuemail@gmail.com"
    .TO = "paraquemvoumandar@yahoo.com.br"
    .Subject = "Prueba desde Gmail"
    .TextBody = "Este es un mensaje de prueba con CDO con " + ;
      "autenticación y cifrado SSL desde Gmail"
    .Send()
  ENDWITH
CATCH TO loError
  lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;
    [Linea: ] + STR(loError.LINENO) + CHR(13) + ;
    [Mensaje: ] + loError.MESSAGE
FINALLY
  RELEASE loConfig, loMsg
  STORE .NULL. TO loConfig, loMsg
  IF EMPTY(lcErr)
    MESSAGEBOX("El mensaje se envió con éxito", 64, "Aviso")
  ELSE
    MESSAGEBOX(lcErr, 16 , "Error")
  ENDIF
ENDTRY

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por _batmanvfp_ em 1/2/2011, 14:35

Agora entendi pq o CDO é tão bom, olha a tradução

CDO (Collaboration Data Objects)

eles colaboram ! tongue

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por memarques em 1/2/2011, 14:55

Bom

Se alguem tiver a dica de como fazer para "LER" um mail que usa SSL Via Winsock ou CDO, mando uma "BALA 7-BELO" .. kkk

Abraço
Mauro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por alceu11 em 1/2/2011, 19:30

Batman
Verifca no cdo2000.prg

.cAttachment = "tabela.dbf"
para anexar arquivo , como fazer aqui nao consegui.....
Acho que isto que Satori ker tambem......

Ou se vc conseguiu anexar arquivo e enviar. poste no topico

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por _batmanvfp_ em 1/2/2011, 20:01

Hablas Hombre autenticacion y cifrado SSL addattachment FILE

el codigo

.TextBody = ........
depois disso ..... colocar

Código:
  .AddAttachment('c:\teste.txt') 

ai volta aqui

.Send()

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por satori em 2/2/2011, 07:11

Bom dia, _batmanvfp_
Rodei os programas e funcionou super bem, pelo menos no XP. Muito obrigada!

satori
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por _batmanvfp_ em 2/2/2011, 10:33

Bom Dia, Que bom que deu certo, espero ter ajudado


_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por alceu11 em 2/2/2011, 11:11

_batmanvfp
Saludos
Qdo la question ,de Email de multiplos destinos ,,,,,comu hacer ?

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por Campolinainfo em 8/3/2013, 16:40

Muito obrigado pessoal o servidor do uai.com.br tinha mudado a porta smtp de 25 para 587 e não sabia como configurar no jmail, mas lendo as postagens, principalmente a do alceu consegui resolver o problema colocando o numero da porta do lado do endereço do servidor de e-mail.

Obrigado.

Campolinainfo
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Jmail com email Gmail

Mensagem por Conteúdo patrocinado Hoje à(s) 07:43


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum