Notifications
Clear all
Formulários
2
Posts
2
Usuários
0
Reactions
1,513
Visualizações
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
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