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 em tempo de execução 287

    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    Erro em tempo de execução 287 Empty Erro em tempo de execução 287

    Mensagem  leoavila7 27/10/2013, 12:50

    Caros amigos,
    eu criei um botao de envio de e-mail em um formulario que funcionava perfeitamente até alguns dias atras, mas de repente passou a me dar a seguintes mensagem:
    Erro em tempo de execução 287
    Erro de definição de aplicativo ou de definição objeto

    Código:

    Private Sub BtEnviar_Click()
    'Sub SendMessages(Optional AttachmentPath)

    Dim MyDB As Database
    Dim MyRS As Recordset
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    'Dim objOutlookAttach As Outlook.Attachment
    Dim TheAddress As String
    Dim strsql
    Set MyDB = CurrentDb

    Set MyRS = Me.RecordsetClone
    ' Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")

    ' Create the e-mail message.
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    TheAddress = ""

    Do Until MyRS.EOF
        If TheAddress = "" Then
            TheAddress = MyRS![Email]
        Else
            TheAddress = TheAddress & "; " & MyRS![Email]
        End If
        MyRS.MoveNext
    Loop

    With objOutlookMsg
    ' Add the CCo recipients to the e-mail message.
    Set objOutlookRecip = .Recipients.Add(TheAddress)
    objOutlookRecip.type = olBCC

    ' Add the Cc recipients to the e-mail message.
    If (IsNull(Forms!Email!Email)) Then
    'Else
    'Set objOutlookRecip = .Recipients.Add(Forms!Email!Email)
    'objOutlookRecip.Type = olCC
    End If

    ' Set the Subject, the Body, and the Importance of the e-mail message.
    '.Subject = Forms!EMail!Subject
    '.Body = Forms!frmMail!MainText
    '.Importance = olImportanceHigh 'High importance

    'Add the attachment to the e-mail message.
    ' If Not IsMissing(AttachmentPath) Then
    ' Set objOutlookAttach = .Attachments.Add(AttachmentPath)
    ' End If

    ' Resolve the name of each Recipient.
    For Each objOutlookRecip In .Recipients
    objOutlookRecip.Resolve
    If Not objOutlookRecip.Resolve Then
    objOutlookMsg.Display
    End If
    Next
    .Display
    End With

    Set objOutlookMsg = Nothing
    Set objOutlook = Nothing
    End Sub
    A linha "Set objOutlookRecip = .Recipients.Add(TheAddress)" é onde o depurador aponta a falha. Ja rachei minha cabeça tentando identificar o problema, mas acho q nao vou conseguir sem sua ajuda.
    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Erro em tempo de execução 287 Empty Re: Erro em tempo de execução 287

    Mensagem  Silvio 27/10/2013, 13:47

    Bom dia....

    Em tudo sempre há um antes e depois, ainda mais em programação que as variáveis são um mar !!

    a- versão do pacote atualizado ? SP3 Offce esta presente ?
    b- houve alguma mudança de windows onde está o programa ?
    c- as referências ao outlook estão apontadas para o mesmo ?
    d- já importou o projeto para um banco novo e testou o mesmo ?
    e- ocorre o erro em apenas um micro ou em todos ?


    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    Erro em tempo de execução 287 Empty Re: Erro em tempo de execução 287

    Mensagem  leoavila7 27/10/2013, 13:59

    Essa me pegou, vou fazer as verificações...

    Conteúdo patrocinado


    Erro em tempo de execução 287 Empty Re: Erro em tempo de execução 287

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:23