Servidor de Correo electronico desde VBA

Hola y Gracias!


quisiera enviar unos adjuntos a una serie de personas
el adjunto lo se conseguir, "en el ej tansolo nombre los que quiero"
la serie de personas, "destinatarios" estan en un rango definido que he
llamado "emails", es decir range("Emails")

luego hacer un looping, for para que cada persona en esta serie reciba un
adjunto desde Excel a traves de vba no me resulta dificil.


mi problema es:

yo utilizo Outlook Express, pero mi jefe aveces trabaja con outlook otras
con lotus notes.

1) como puedo conseguir que esta macro pueda funcionar en otros serividores
de correo electronico, que no sean outlook, o outlook express
2) como puedo saber si utiliza estos correos, y no Lotus notes, gmail...





Sub SendWithAtt()
Dim Cell As Range
Dim olApp As Outlook.Application
Dim olMail As MailItem
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
ActiveWorkbook.Save

For Each Cell In Range("emails")
With olMail
.To = Cell.Value
.CC = "pedro@hotmail.com"
.Subject = "These two files"
.Body = "He aqui los adjuntos:" & vbCrLf
.Attachments.Add "c:\My Documents\ejemplo_word.doc"
.Attachments.Add "c:\My Documents\ekemplo_excel.xls"
.Display '.Send
End With
Next Cell

Set olMail = Nothing
Set olApp = Nothing

End Sub






Gracias!!!!