Esa es la cuestión, necesito que un archivo "x" se envíe por correo a una hora "y" lo que tengo es esto, pero es solo para enviar texto plano:
Sub Item_PropertyChange(ByVal Name)
Select Case Name
Case “Status”
if Item.Status = 2 then ‘2 = Completed
Set NewItem = Application.CreateItem(0)
NewItem.To = “[email protected]”
NewItem.Recipients.ResolveAll
NewItem.Subject = “ASUNTO”
NewItem.Body = “Cuerpo mensaje.”
NewItem.Display
End IF
End Select
End Sub