Estou tentando enviar um email com um ANEXO, porém nem mesmo quando eu atribuo VAZIO pra função .Attachments.Add = "" esta dando certo..
Se eu tirar a função .Attachments.Add = "" , ele envia o email normalmente, porem eu preciso do anexo.

Erro:
Erro em tempo de execução '440

Não consegui identificar o problema do código...

Sub Email ()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    zAssunto = xSend.TextBox_ASSUNTO.Text
    zMsg = xSend.TextBox_MSG.Text & vbCrLf & vbCrLf & _
                    "Atenciosamente," & vbCrLf & _
                    "Representante de Classe"
    
        With OutMail
            .To = UNIP.Sheets("EMAIL").Range("H1").Value
            .CC = ""
            .BCC = ""
            .Subject = zAssunto
            .body = zMsg
            .Attachments.Add = ""
            .Display
            .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
End Sub