MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Não envia mail com o Windows 10

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Não envia mail com o Windows 10 Empty Não envia mail com o Windows 10

    Mensagem  Assis 12/9/2015, 12:58

    Boa tarde amigos

    Dá erro na parte a vermelho .send

    Sub 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") = Me.SMTP 'aqui foi configurado para uma conta de email do sapo, que é grátis
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Me.Porta ' porta usada pelo sapo
    .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") = Me.Email 'se o email a ser usado para envio for fulano@bol.com.br, coloque fulano aqui
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Me.Pass '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 = Forms!Menu!Nome 'Nome de quem envia
    If Not IsNull(Me.txtDeMail) Then
    .Sender = Me.Email '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
    .To = Me.txtPara 'caixa texto para quem vai o email"
    If Not IsNull(Me.txtAnexo) Then
    .AddAttachment (Me.txtAnexo)
    End If
    If Not IsNull(Me.txtAnexo1) Then
    .AddAttachment (Me.txtAnexo1)
    End If
    If Not IsNull(Me.txtAnexo2) Then
    .AddAttachment (Me.txtAnexo2)
    End If

    DoCmd.openForm "frmProgresso"
    .Send ' envia

    End With
    MsgBox "@Mail Enviado com Sucesso", vbExclamation, "Gestão de @Mails"
    DoCmd.Close acForm, "frmProgresso"
    DoCmd.Close acForm, "email"
    Set Mens = Nothing
    Set Config = Nothing

    Exit Sub
    erromail:

    Set Mens = Nothing
    Set Config = Nothing

    Exit Sub

    End Sub

    Obrigado

    Com win 8 enviava sem problemas.

    Não envia mail com o Windows 10 2a5azwl


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Não envia mail com o Windows 10 Empty Re: Não envia mail com o Windows 10

    Mensagem  Noobezinho 12/9/2015, 17:10

    Assis

    Veja na ajuda do servidor de email se precisa de autenticação SSL, caso seja preciso adicione essa linha ao código:

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


    Aqui:

    .Sender = Me.txtPara

    .To = Me.txtPara 'caixa texto para quem vai o email"

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Não envia mail com o Windows 10 Empty Re: Não envia mail com o Windows 10

    Mensagem  Assis 12/9/2015, 17:35

    Noob

    Dá o mesmo erro.
    Mas o mesmo BD funfa direito no win 8.1, e no Windows 7.


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Não envia mail com o Windows 10 Empty Re: Não envia mail com o Windows 10

    Mensagem  Noobezinho 12/9/2015, 19:09

    Bem Assis

    Ajudei até onde podia, pois não uso o windows 10

    Sinto meu amigo, vamos ver se alguém que use esse windows. dê uma luz a ti.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Não envia mail com o Windows 10 Empty Re: Não envia mail com o Windows 10

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 09:35