[Resolvido]Erro quando envia e-mail com anexo

Ola amigos,

pretendo enviar email com anexo usando este codigo abaixo mas ele da a seguinte mensagem: "operação não suportada para este tipo de objeto"
e foca no codigo :. Attachments.Add anexo
quando tiro o codigo "'.Attachments.Add anexo" ele funciona

Código:

Function EnvioAutomaticoDeEmail(MessageTo, MsgCC, MsgCCO, Subject As String, MessageBody As String, anexo, op)
'By JPaulo Maximo Access
Dim strAplicacao As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strFicheiro As String

Set strAplicacao = New Outlook.Application
Set objMail = strAplicacao.CreateItem(olMailItem)
'strFicheiro = "Documento"
With objMail
.Subject = Subject
'.BodyFormat = olFormatRTF
'.BodyRTF = MessageBody
.BodyFormat = olFormatHTML
.HTMLBody = MessageBody
.to = MessageTo
.Attachments.Add anexo

On Error Resume Next
.Display

If Err.Number = 287 Then
End
End If
End With
End Function


alguem sabe o que fazer para poder enviar email com anexo?

Deu certo, faltava o string no parametro "anexo"

assim funcionou

Código:

Function EnvioAutomaticoDeEmail(MessageTo, MsgCC, MsgCCO, Subject As String, MessageBody As String, anexo as String, op)
'By JPaulo ️ Maximo Access
Dim strAplicacao As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strFicheiro As String

Set strAplicacao = New Outlook.Application
Set objMail = strAplicacao.CreateItem(olMailItem)
'strFicheiro = "Documento"
With objMail
.Subject = Subject
'.BodyFormat = olFormatRTF
'.BodyRTF = MessageBody
.BodyFormat = olFormatHTML
.HTMLBody = MessageBody
.to = MessageTo
.Attachments.Add (anexo)

On Error Resume Next
.Display

If Err.Number = 287 Then
End
End If
End With
End Function

encerrando o topico