Macro Excel - Envío correos

[4888250]

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

[JavierB]

Hola 4888250. Bienvenid@ al foro.

Para hacer preguntas es preferible utilizar el foro que mejor se adapte a tu duda, así podrán ayudarte más usuarios.

Muevo tu mensaje al foro de Ofimática desde Bienvenida a Foros del Web.

Saludos,