He escrito este código para enviar correos a distintos destinatarios a diario con un recordatorio. Funciona bien, excepto cuando deseo enviarlo a distintos destinatarios.
Sub EnviarEMailDeAlerta()
MENSAJE = "Recordatorio"
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objMailItem = objOutlook.CreateItem(0)
Set objRecipient = objMailItem.Recipients.Add("Silvio Cardozo Parra; Pedro Vargas Diaz")
objRecipient.Type = 1
objMailItem.Subject = "Reportes - Alerta de vencimiento"
objMailItem.Body = MENSAJE
objMailItem.Send
End Sub
