Olá pessoal.
Queria a ajulda de vocês. Estou tentando criar uma rotina em VBA deenviar um email, contendo um arquivo em anexo, enviados para um mesmo destinatário. Você poderiam me dizer uma foto simples de contornar esse problema? Segue o código que eu utilizo e abaixo a mensagem de erro:
Sub EnvioEmail()
Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
Dim x As Integer
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
For x = 1 To NumRows
Num_Arquivo = Cells(x, 1)
'Corpo do Email
HTML = "<HTML>"
HTML = HTML & "<head>"
HTML = HTML & "<body>"
HTML = HTML & "<font size='3' font color= #000000 face='Calibri'>"
HTML = HTML & "Matheus,<br /><br>Segue em anexo o arquivo " & Num_Arquivo & ".</font><br /><br>"
HTML = HTML & "<font size='2' font color= #008B00 face='Trebuchet MS'>Atenciosamente,<br /><br> "
HTML = HTML & "<font size='2' font color= #008B00 face='Trebuchet MS'><b>Matheus Alves,</b></font><br>"
HTML = HTML & "</html>"
'Criação do Email
With MeuItem
.To = ("[email protected]")
.Subject = "Teste Macro Email"
.HTMLBody = HTML
'troque o diretorio do documento que queira enviar 'add' anexo.
.Attachments.Add "C:Documents and SettingsusuárioDesktopArquivo " & Num_Arquivo & ".jpg"
.Display
.Send
End With
Next
End Sub
ERRO EXISTENTE NO CÓDIGO
"Erro em tempo de execução '-2147221238 (8004010a)':
O item foi movido ou excluído.
Postado : 11/05/2015 2:15 pm