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

    [Resolvido]Envio de e-mail direto sem outlook

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de e-mail direto sem outlook Empty [Resolvido]Envio de e-mail direto sem outlook

    Mensagem  Assis 17/5/2011, 10:50

    Bom dia
    Estou a utilizar para enviar os meus emails mas quando tento inserir 2 anexos não envia.
    Quando insiro só um anexo envia sem problemas
    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


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de e-mail direto sem outlook Empty Re: [Resolvido]Envio de e-mail direto sem outlook

    Mensagem  criquio 17/5/2011, 11:58

    Olá Assis. Para envio de dois anexos, considere colocar mais uma caixa de texto:

    ...
    .AddAttachment (Me.txtAnexo1)
    .AddAttachment (Me.txtAnexo2)
    ...


    ou usar uma listbox, que seria o mais adequado para envio de vários emails:

    Dim Linhas As Long
    Do
    .AddAttachment Me!lstAnexos.Column(0, Linhas) & Me!lstAnexos.Column(1, Linhas)
    Linhas = Linhas + 1
    Loop While Linhas <= Me.lstAnexos.ListCount


    No caso acima, eu uso o FilePicker para coletar e preencher a list box com os arquivos e tenho uma função que separa o nome do arquivo do caminho, de forma a exibir na listbox apenas o nome do arquivo com a extensão. Por isso tenho as colunas 0 e 1. Caso prefira, pode ter apenas a coluna 0.


    .................................................................................
    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.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de e-mail direto sem outlook Empty Re: [Resolvido]Envio de e-mail direto sem outlook

    Mensagem  criquio 17/5/2011, 22:08

    Assis, esse tópico ficou resolvido?


    .................................................................................
    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.


    Conteúdo patrocinado


    [Resolvido]Envio de e-mail direto sem outlook Empty Re: [Resolvido]Envio de e-mail direto sem outlook

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 11:19