Adicionando opção de anexo ao script vba de email programado

2

Estou aprendendo VBA, mas por enquanto não sou tão bom e encontrei essa macro:

E-mail agendado e recorrente no Outlook?

Ele envia um e-mail graças a um compromisso agendado no calendário.

Alguém poderia me ajudar a completá-lo para que seja possível ter uma opção para enviar um anexo também?

[EDITAR] Este é o script que eu modifiquei, mas ainda não funciona.Você poderia me dar uma indicação?

    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem
      Dim myAttachments As Outlook.Attachments
      Set objMsg = Application.CreateItem(olMailItem)
      Set myAttachments = objMsg.Attachments
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If

    If Item.Categories <> "Blue Category" Then
      Exit Sub
    End If

      objMsg.To = Item.Location
      objMsg.Subject = Item.Subject
      objMsg.Body = Item.Body
      myAttachments.Add "C:\Test.txt", _
      objMsg.Send

      Set objMsg = Nothing
    End Sub

Acho que o problema é que o anexo é definido como algo vinculado ao Outlook, enquanto o MailItem não estava. A macro funcionou bem antes de inserir as poucas linhas sobre o anexo, agora ele nem mesmo envia um email.

    
por Nre 12.09.2014 / 21:33

1 resposta

2

Você estava tão perto! Tudo que você precisa fazer é remover o sublinhado e a vírgula final do final da linha

myAttachments.Add "C:\Test.txt", _

Deveria ser simplesmente

myAttachments.Add "C:\Test.txt"

Eu tentei o seu código com essa alteração e funcionou muito bem.

    
por 13.09.2014 / 01:51