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

    Erro envio de e-mail via outlook no windows server 2003

    avatar
    gerentemax
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 15/10/2010

    Erro envio de e-mail via outlook no windows server 2003 Empty Erro envio de e-mail via outlook no windows server 2003

    Mensagem  gerentemax 6/11/2012, 14:05

    Olá! Bom dia!

    Estou tentando enviar vários destinatários para o outlook 207, no windows 7 funciona normal, ele abre o outlook com os destinatarios q selecionei, mas quando implantei no windows server 2003 ele dá o seguinte erro:

    "Erro em tempo de execução '429':
    O componente ActiveX não pode criar o objeto."

    O meu código é esse:
    DoCmd.OpenQuery "Pessoas_EmailsDel"
    DoCmd.OpenQuery "Pessoas_EmailsAdd"
    Dim OutApp As Object
    Dim OutMail As Object
    Dim rst As DAO.Recordset
    Dim strDestinatarios

    Set OutApp = CreateObject("Outlook.Application") 'AQUI OCORRE O ERRO.
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    Set rst = CurrentDb.OpenRecordset("Pessoas_Emails")

    Do Until rst.EOF
    strDestinatarios = strDestinatarios & rst("Emails") & ";"
    rst.MoveNext
    Loop

    strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)

    On Error Resume Next
    With OutMail
    .To = strDestinatarios
    .BCC = ""
    .Subject = ""
    .Body = ""
    .Display

    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

    rst.Close
    Set rst = Nothing

    MsgBox "Emails enviados" & Chr(13) & Chr(13) & "Total: " & DCount("Email", "Email")

    End Sub

    Alguem pode me ajudar?
    Obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro envio de e-mail via outlook no windows server 2003 Empty Re: Erro envio de e-mail via outlook no windows server 2003

    Mensagem  criquio 6/11/2012, 14:29

    Verifique as referências. Deve ter alguma AUSENTE ou incompatível. Não costumo enviar email via Outlook pelo Access e nunca o fiz nas versões anteriores, mas deve ter a ver com a versão do Outlook. Talvez tenha que mudar a versão da referência e adaptar o código.


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 15/10/2010

    Erro envio de e-mail via outlook no windows server 2003 Empty Re: Erro envio de e-mail via outlook no windows server 2003

    Mensagem  gerentemax 5/12/2012, 13:15

    Vou tentar resolver, daí se conseguir posto aki.
    Obrigado.

    Conteúdo patrocinado


    Erro envio de e-mail via outlook no windows server 2003 Empty Re: Erro envio de e-mail via outlook no windows server 2003

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 03:05