correo para varios destinatarios

hola, fernando !

... en tres columnas direcciones de correo electronico
... en las tres siguientes el nombre de uno a tres archivos que deseo enviar por e-mail
... varias lineas todas con correos diferentes y archivos distintos [...]

puedes empezar revisando el ejemplo en: http://j-walk.com/ss/excel/tips/tip86.htm
y luego 'te pasas' a la pagina de Ron de Bruin: http://www.rondebruin.nl/sendmail.htm

saludos,
hector.

Hector Miguel!!
Gracias por las sugerencias.

la que mas se adapta a mis necesidades es la de la pagina
http://j-walk.com/ss/excel/tips/tip86.htm , pero la parte que aun no
he podido definir es la de agregarle uno o mas archivos adjuntos, la
verdad aun no he podido dar con el chiste, adjunto el codigo de John
Walkenbach para mejor orientacion.



Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As
String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub SendEMail()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double
For r = 2 To 4 'data in rows 2-4
' Get the email address
' AQUI COLOCO LOS OTROS DESTINATARIOS -->Email = Cells(r,
2)&","&Cells(r,3)...
Email = Cells(r, 2)

' Message subject
Subj = "Your Annual Bonus"

' Compose the message
Msg = ""
Msg = Msg & "Dear " & Cells(r, 1) & "," & vbCrLf & vbCrLf
Msg = Msg & "I am pleased to inform you that your annual bonus
is "
Msg = Msg & Cells(r, 4).Text & "." & vbCrLf & vbCrLf
Msg = Msg & "William Rose" & vbCrLf
Msg = Msg & "President"

' Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ",
"%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ",
"%20")

' Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf,
"%0D%0A")
' Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString,
vbNullString, vbNormalFocus

' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Next r
End Sub




Agradezco tu colaboración al respecto.

Fernando


"Héctor Miguel" wrote in message news:...

hola, fernando !

> ... en tres columnas direcciones de correo electronico
> ... en las tres siguientes el nombre de uno a tres archivos que deseo enviar por e-mail
> ... varias lineas todas con correos diferentes y archivos distintos [...]

puedes empezar revisando el ejemplo en: http://j-walk.com/ss/excel/tips/tip86.htm
y luego 'te pasas' a la pagina de Ron de Bruin: http://www.rondebruin.nl/sendmail.htm

saludos,
hector.

hola, fernando !

... la parte que aun no he podido definir es la de agregarle uno o mas archivos adjuntos
... adjunto el codigo de John Walkenbach para mejor orientacion.

creo que el ejemplo de John NO 'contempla' al uso de los adjuntos :(
revisa en la pagina de Ron De Bruin [creo que no 'llegaste hasta ahi']:
http://www.rondebruin.nl/mail/folder2/files.htm
http://www.rondebruin.nl/mail/add-in.htm

¿comentas?
saludos,
hector.