Forums Últimos mensajes - Powered by IBM
 

Servidor de Correo electronico desde VBA

01/09/2005 - 23:00 por Drom | Informe spam
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!!!!
 

Leer las respuestas

#1 Héctor Miguel
01/09/2005 - 23:52 | Informe spam
hola, Drom !

quisiera enviar unos adjuntos a una serie de personas [...]
mi problema es:
yo utilizo Outlook Express, pero mi jefe aveces trabaja con outlook otras con lotus notes
1) ... conseguir que esta macro pueda funcionar en otros servidores de correo electronico [...]
2) ... saber si utiliza estos correos, y no Lotus notes, gmail...



[hasta donde se]... para 'manejar a voluntad' los adjuntos externos en correos electronicos desde excel-vba...
es necesario utilizar outlook [NO el 'express'] o... CDO [Collaboration Data Objects]
ejemplos para outlook [como el que YA estas usando] en: http://www.rondebruin.nl/mail/folder2/files.htm
ejemplos para CDO en: http://www.rondebruin.nl/cdo.htm [necesitaras de 'ligeras' modificacines] ;)

si cualquier duda... comentas?
saludos,
hector.

Preguntas similares