Estou com Problema para Enviar E-mail pelo Outlook

Bom dia

Não estou conseguindo mandar email porem ele esta me retornando o erro ActiveX

Algumas maquinas mandam outras da esse erro, eu creio que deve ser alguma configuração do Outlook

Algum pode me ajudar!!!!

OBRIGADO!!!!

segue meu código

Sub EnviaEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim corpo As String
Dim strReportName$
Dim AttachmentPath$
Dim subject$
Dim email_to$
Dim email_cc$
'Variáveis
strReportName = "Rel_Solicitacao"
DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, CurrentProject.Path & _
"\" & "Solicitação de Tarefas - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & ".pdf", False
'Anexa relatório em formato PDF no e-mail
subject = "Solicitação de Tarefa - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & " - " & Forms!Frm_Solicitacao.Txt_Nome_Fantasia
'AttachmentPath = CurrentProject.Path & "\" & "Solicitação de Tarefas - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & ".pdf"
email_to = Forms!Frm_Solicitacao.Txt_Funcionario
email_cc = Forms!Frm_Solicitacao.Texto98
' email_oculto =""
'Define os controles para envio de e-mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Abre o Outlook.exe
corpo = "
." _
& "

Segue referente a Solicitação n° 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao _
_
_
& "

Status: " & Forms!Frm_Solicitacao.Txt_Status _
& "

Tarefa: " & Forms!Frm_Solicitacao.Txt_Tarefa _
_
_
& "

Proprietário: " & Forms!frm_solicitacaoMensagem.Txt_Proprietario _
& "

Mensagem: " & Forms!frm_solicitacaoMensagem.Txt_Mensagem _
& "

"
'Corpo do e-mail em formato HTML
With OutMail
.Display
.To = email_to
.CC = email_cc
'.BCC = email_oculto
.subject = subject
.Attachments.Add (AttachmentPath) """""esta dando erro nessa linha"""""
.HTMLBody = corpo & "
" & .HTMLBody
'.Send
End With
'Envia e-mail
'On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Uma dica:

Procure no site do Avelino, UsandoAccess, por emial via Outloock.

[ ]'s