Cómo enviar un mail a una lista de destinos

13/09/2006 - 15:11 por Diego | Informe spam
Buenos días grupo.
Necesito poder enviar un mail a una lista de correos que se encuentra en un
rango de celdas.
Identificar la lista de correos y meterla en una variable no es problema,
esta separada por ";" entre ellos, logro abrir la ventana del nuevo correo,
pero no sé como asignarle la lista de correos de destinatario al mail.

La macro que he trabajado es:

Sub EnviarMailPromo()

'Inicializa la lista con una lista vacia
MaiList = ""

'Asigna la lista de mails a una variable
Set Lista = Range(Cells(IniFil, IniCol), Cells(FinFil, FinCol))

'Arma la lista de nombre
For Each Cel In Lista
If MaiList = "" Then
If Not (Cel = "" Or Cel = "") Then
MaiList = Cel
End If
Else
If Not (Cel = "" Or Cel = "") Then
MaiList = MaiList & "; " & Cel
End If
End If
Next

Application.Dialogs(xlDialogSendMail).Show

End Sub

He cortado partes del código que no son relevantes para este problema, la
última sentencia es la que abre la ventana del correo.

Estoy trabajando con Office 2003.

Espero puedan ayudarme.

Gracias.
 

Preguntas similares