Enviar ANEXO por VB...
 
Notifications
Clear all

Enviar ANEXO por VBA

2 Posts
2 Usuários
0 Reactions
1,468 Visualizações
ccaciano
(@ccaciano)
Posts: 47
Eminent Member
Topic starter
 

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
 
Postado : 23/02/2017 9:42 am
(@gesus)
Posts: 44
Eminent Member
 

Boa tarde!

Apenas tira o sinal de igual (=) assim:
.Attachments.Add = ""

Não precisa, exemplo para enviar a própria planilha em anexo!
.Attachments.Add ActiveWorkbook.FullName

Espero ter ajuda, e não esqueça de marcar como Resolvido, caso seja resolvido! rs
Att

 
Postado : 28/03/2017 9:54 am