MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Envio de email sem Outlook

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    [Resolvido]Envio de email sem Outlook Empty [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em 9/10/2010, 19:17


    Uma dúvida, aqui deu erro no Windows 7, será que é a referencia? Pq não enviou


    Function EnviarEmail()
    On Error GoTo erromail
    Dim Mens As CDO.Message
    Dim Config As CDO.Configuration

    Set Config = New CDO.Configuration

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.suaconta.com.br" 'seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta usada pelo seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "o nome do usuario para logon no servidor" 'user do servidor
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha do servidor" 'coloque a senha do seu email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update

    End With

    Set Mens = New CDO.Message

    With Mens

    Set .Configuration = Config
    .From = "Nome de quem envia" 'quem envia

    If Not IsNull(Me.txtDeMail) Then
    .Sender = Me.txtDeMail 'email de quem envia.
    End If

    If Not IsNull(Me.txtCOculta) Then
    .BCC = Me.txtCOculta
    End If

    .Subject = Me.txtAssunto 'caixa texto assunto
    .TextBody = Me.txtMensagem 'Caixa texto com o texto"

    If Not IsNull(Me.txtPara) Then
    .To = Me.txtPara 'caixa texto para quem vai o email"
    End If

    If Not IsNull(Me.txtAnexo) Then
    .AddAttachment (Me.txtAnexo)
    End If

    .Send ' envia

    End With

    MsgBox "Menssagem enviada com sucesso"

    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    erromail:
    MsgBox Err.Number & " " & Err.Description
    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    End Function
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 9/10/2010, 20:26

    O exemplo que o amigo pegou no svc foi postado por mim. Eu o fiz no Access 2007 com extensão mdb e sob Windows 7 e funcionou perfeitamente. Qual email você está usando? Se for do gmail terá que mudar a porta e adicionar mais uma linha para liberar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em 9/10/2010, 20:31

    no Windows XP esta funcionando normal, mas no Windows 7 deu esse erro.

    Uso Hotmail.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 9/10/2010, 21:36

    Tente baixar o exemplo do portal svc e teste para ver o que acontece: http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000207


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 302
    Registrado : 17/09/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em 11/10/2010, 11:58

    Eu o utilizo no 7 64b e 32b e funciona normal com conta de um provedor particular... Criquio, você menciona em adicionar mais uma linha para funcionar no gmail, quanto a porta tranquilo que sei que ela muda, mas com relação a linha qual seria?
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 11/10/2010, 12:43

    Olá Pablo. A linha é essa em vermelho aí abaixo:

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SuaSenha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 302
    Registrado : 17/09/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em 11/10/2010, 14:18

    Valeu!!!!
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Assis em 11/10/2010, 14:20

    Eu tenho Win 7 e funfa perfeito, Office 2003
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    [Resolvido]Envio de email sem Outlook Empty Envio de email sem Outlook

    Mensagem  Gilberto Rocha em 11/10/2010, 20:29

    Olá amigos eu estou usando o Runtime no Windows 7, será que tem como vcs testarem com o runtime?
    O erro é esse da foto.

    No windows Xp ta rodando normal.
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 302
    Registrado : 17/09/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em 11/10/2010, 21:27

    Eu tenho a rotina rodando com runtime 2010 no W7 32 e 64 e eles funcionam 100% o erro que deu pelo que parece é do servidor, ou seja esta sendo enviado um parametro... é possível que seja algo de configuração, você esta usando a conta do hotmail? pode me informar as portas e servidores que esta utilizando para poder tentar fazer um teste...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10570
    Registrado : 04/11/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  JPaulo em 11/10/2010, 21:32

    Esse é um erro de segurança da criptografia do TLS.

    Procure por:
    Desligar TLS do servidor SMTP virtual.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Envio de email sem Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Envio de email sem Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Envio de email sem Outlook Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em 11/10/2010, 21:36

    Pablo olhe as configurações

    smtp.live.com
    e a porta é 25

    JPaulo, o estranho é que no Windows XP está normal, então a configuração deve ser alterada no Windows 7?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10570
    Registrado : 04/11/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  JPaulo em 11/10/2010, 21:40

    Isso mesmo.

    Essa configuração é alterada por defeito no Seven.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Envio de email sem Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Envio de email sem Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Envio de email sem Outlook Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em 11/10/2010, 21:41

    Ok, vou tentar aqui, abraço
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 302
    Registrado : 17/09/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em 14/10/2010, 21:39

    Amigos mudando a propriedade .TextBody para .HTMLBody é possível enviar mensagens em HTML, otimo para mailing (mas fique esperto para não travar se servidor)... Já estou utilizando...

    Sds,,,
    avatar
    Rodrigo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 28/09/2010

    [Resolvido]Envio de email sem Outlook Empty Teste em VBA do Excel

    Mensagem  Rodrigo em 13/3/2011, 02:34

    Olá Amigos,

    Eu estava tentando adptar esse código para o VBA do excel, criei até uma conta no gmail para usar o exemplo de vocês, porém ao rodar a macro de vocês ele me retornou a mesagem abaixo, vocês sabem que tipo de erro é esse ? Onde estou errando ?

    Mensagem:

    -2147220977 the server rejected one or more recipient addresses. The server response was:5553.5.1.2 or other punctuation after the recipient’s email address 27sm2136778yhl.25

    O código que eu escrevi é esse:

    Function EnviarEmail()
    On Error GoTo erromail
    Dim Mens As CDO.Message
    Dim Config As CDO.Configuration

    Set Config = New CDO.Configuration

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta usada pelo seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "s2sprogram@gmail.com" 'user do servidor
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" 'coloque a senha do seu email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update

    End With

    Set Mens = New CDO.Message

    With Mens

    Set .Configuration = Config
    .From = "Nome de quem envia" 'quem envia


    .Sender = "s2sprogram@gmail.com" 'email de quem envia."
    .BCC = "Teste"

    .Subject = "TESTE e-amil" 'caixa texto assunto
    .TextBody = "Estou testando o enmail" 'Caixa texto com o texto"
    .To = "*******ig.com.br"


    .Send ' envia

    End With

    MsgBox "Menssagem enviada com sucesso"

    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    erromail:
    MsgBox Err.Number & " " & Err.Description
    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    End Function



    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 13/3/2011, 10:44

    Para contas gmail, serverport é 465 e não 25.

    .BCC = "Teste" → BCC é um email para onde quer que seja enviada uma cópia oculta da mensagem. Se for usar esse atributo, deves colocar um email válido ou referenciar um campo aonde tenha um email válido. Se não precisar, pode excluir essa linha.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Rodrigo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 28/09/2010

    [Resolvido]Envio de email sem Outlook Empty [Resolvido]Envio de email sem Outlook

    Mensagem  Rodrigo em 13/3/2011, 22:32

    Olá Criquio,

    Funcionou perfeitamente, agradeço muito !!

    Abraços
    Vicê é fera mesmo !!!

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 13/3/2011, 23:50

    Obrigado amigo. O forum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    [Resolvido]Envio de email sem Outlook Empty Onde encontro o exemplo?

    Mensagem  kratortato em 5/4/2011, 14:22

    Por favor, alguém poderia mandar para mim o exemplo de envio de email? Tentei o endereço http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000207 mas não achei.

    Obrigada!
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em 5/4/2011, 14:25

    Amigão

    Cliquei encima do link e fui lá, agora para fazer download tem que se registar no Portal. É rápido e simples.

    http://www.svcsoftwarehouse.com/

    http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000207
    avatar
    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    [Resolvido]Envio de email sem Outlook Empty Arquivo exemplo

    Mensagem  kratortato em 5/4/2011, 14:30

    Onde trabalho é bloqueado pra download. Por isso pedi esse favor.
    Se não for incomodo, é claro.

    Kelly Abreu
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em 5/4/2011, 14:32

    Certo, não é incómodo nenhum, aguarde que eu envio-lhe por email.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em 5/4/2011, 14:38

    Foi enviado. Verifique o seu email.
    avatar
    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    [Resolvido]Envio de email sem Outlook Empty Arquivo exemplo

    Mensagem  kratortato em 5/4/2011, 14:39

    Obrigada!!!
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em 5/4/2011, 14:42

    Sempre que precisar
    avatar
    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    [Resolvido]Envio de email sem Outlook Empty Envio de email com iNotes

    Mensagem  kratortato em 12/4/2011, 14:16

    Por favor,
    Alguém já tentou usar esse código para enviar email pelo iNotes (Web Notes)???

    Obrigada!!!

    Kelly
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 13/4/2011, 21:08

    Estou tentando usar uma conta do hotmail, mas está dando o erro:
    A resposta do servidor foi: 530.5.7.0 must issue a STARTTLS comand first

    pesquisei pelo comando STARTTLS, e não entendi nada.

    As configurações que estou usando são essas:
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" ' - tentei também pop3.live.com - porta: 995
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jr.wano@hotmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    Access 2003 - Windows XP - Exemplo do Valdino: Enviar Email sem Outlook

    Alguem pode me ajudar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 14/4/2011, 18:03

    Ainda tentando,

    Marquei a caixa: Não usar o HTTPS automaticamente

    Continua dando o mesmo erro.

    Se alguem puder ajudar, agradeço.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 14/4/2011, 18:21

    Você tem a cdosys.dll na pasta System32 e refenciada no aplicativo?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 14/4/2011, 20:07

    Oi Criquio,

    Sim, a cdosys.dll está na pasta System32
    e está referenciada: Microsoft CDO Windows 2000 Library

    O Erro que está dando "acho" que é alguma coisa na configuração do hotmail

    Microsoft Office Access -2147220978 O Servidor rejeitou o endereço do remetente. A resposta do servidor foi: 530.5.7.0 must issue a STARTTLS comand first

    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 14/4/2011, 20:15

    Pelo que pesquisei, tenho que entrar em contas do hotmail e marcar a opcão:
    Meu servidor de saída (SMTP) requer autenticação.

    Mas já fucei pra tudo que foi lado e não achei a opcão.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 14/4/2011, 20:19

    Em um post meu mais acima um pouco tem uma linha em vermelho no código que deve ser inclusa em certos casos. Tente incluí-la no seu código e vamos ver no que se acarreta.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 14/4/2011, 20:24

    Criquio,

    inclui a linha:

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

    Na verdade já tinha tentado isso, mas fiz novamente e
    continua o mesmo erro.
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 14/4/2011, 20:30

    Criquio me desculpe,

    me enganei, com a inserção da linha no código, a mensagem de erro mudou:

    -02147220975 Não foi possível enviar a mensagem para o servidor SMTP. O código de erro de transporte foi 0x80040217. A resposta do servidor foi not available
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em 14/4/2011, 21:05

    Tem certeza que está inserindo o email e aa senha corretamente?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 29/01/2010

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em 14/4/2011, 21:38

    Criquio,

    consegui resolver

    Troquei a Dll que estava na pasta System32 pela Dll que vc. postou junto com o Aplicativo e funcionou como magica...


    Muito obrigado pela atenção e pelo aplicativo disponibilizado, que me será de muita serventia.

    Um grande abraço,
    avatar
    Edson1974
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Envio de email sem Outlook Empty Realizar o envio de email através do Lotus Notes

    Mensagem  Edson1974 em 8/7/2011, 00:02

    Boa noite a todos.
    Pessoal gostaria de fazer os envios de emails através do lotus notes, alguém saberia como seria a configuracao?
    avatar
    nunziato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/08/2011

    [Resolvido]Envio de email sem Outlook Empty adaptação de envio de e-mail

    Mensagem  nunziato em 10/8/2011, 20:09

    Amigo,
    Estou querendo enviar para uma lista de emails em uma tabela.
    poderia me dar uma mão?
    olha meu codigo:

    Function emails_composicao()
    Dim RELAT, ENDE, STRSQL As String
    Dim DB As DATABASE, rst As Recordset

    Set DB = CurrentDb

    Set rst = DB.OpenRecordset("PARAMETROS")

    STRSQL = "UPDATE PARAMETROS SET PARAMETROS.ULTATUCOMP = Now();"


    If rst.RecordCount > 0 Then

    rst.MoveFirst
    Do While Not rst.EOF

    ENDE = rst!EMAILCOMPOSICAO & ";"

    If ENDE = ";" Then
    ENDE = ""
    Else
    ENDE = rst!EMAILCOMPOSICAO & ";"
    End If


    ENDET = ENDET & ENDE

    RELAT = "MODIFCOMPOSICAO"

    rst.MoveNext
    Loop
    End If
    ' ENVIA O EMAIL
    DoCmd.SendObject acTable, RELAT, "ExcelWorkbook(*.xlsx)", ENDET, "", "", "Alteração de Produtos no BOM", "O(s) iten(s) da lista anexa foi(ram) alterado(s) no BOM." & Chr(13) & "Aguardando ação da Engenharia de Manufatura.", False, ""

    DoCmd.RunSQL STRSQL

    rst.Close
    Set DB = Nothing

    Comando1_Click_Exit:
    Exit Function

    Comando1_Click_Err:
    MsgBox Error$
    Resume Comando1_Click_Exit

    End Function

    Como adapto para enviar sem outlook? com o outlook está funcionando corretamente.

    Abraço.
    avatar
    giacomeliangelica
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/03/2014

    [Resolvido]Envio de email sem Outlook Empty Erro : Não foi possível enviar a mensagem para o servidor SMTP.

    Mensagem  giacomeliangelica em 25/3/2014, 18:20

    Boa tarde,

    Estou com problemas ao enviar email pelo vb6 usando cdo
           >>  "O código de erro de transporte foi 0x80040217. A resposta do servidor foi not available".

    Procurei o exemplo mas não encontrei no site, alguém que tenha poderia me enviar por email, por gentileza, ou me explicar como posso corrigir esse erro.

    Agradeço desde já a atenção!

    avatar
    dico2212
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 22/06/2015

    [Resolvido]Envio de email sem Outlook Empty e-mail automático

    Mensagem  dico2212 em 17/10/2015, 13:43

    JPaulo,

    gostaria de usar este script para envio automático de e-mails após uma ação de salvar registro e outra vez após aprovar um registro criado.
    utilizo aqui o Outlook na empresa. consigo aproveitar este mesmo código?
    onde devo coloca-lo para que funcione corretamente?

    por favor, mais uma vez, me ajude!

    obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10570
    Registrado : 04/11/2009

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  JPaulo em 20/10/2015, 17:39

    Pesquise Outlook aqui mesmo, o cod acima não serve;

    exemplo:
    http://www.maximoaccess.com/t20633-resolvidoenviar-email-de-forma-automatica-pelo-outlook


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Envio de email sem Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Envio de email sem Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Envio de email sem Outlook Folder_announce_new Instruções SQL como utilizar...
    lucianodevargas
    lucianodevargas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 12/08/2011

    [Resolvido]Envio de email sem Outlook Empty DLL, Link download quebrado

    Mensagem  lucianodevargas em 29/3/2019, 21:17

    Alguém poderia me enviar a DLL que deu certo?

    Criquio, Jr.Wano...


    .................................................................................
    Luciano Vargas
    SysOpRS

    Conteúdo patrocinado

    [Resolvido]Envio de email sem Outlook Empty Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/9/2019, 16:55