tag:blogger.com,1999:blog-1613210108185682998.post888307278647897689..comments2023-10-31T20:37:56.568-07:00Comments on Excel y Yo: macros: como enviar mails desde Excel (vba)-segunda parteDamian Omar Silvahttp://www.blogger.com/profile/16039167842052507316noreply@blogger.comBlogger6125tag:blogger.com,1999:blog-1613210108185682998.post-77993077128748867142015-07-19T17:17:21.256-07:002015-07-19T17:17:21.256-07:00Gracias Luis por tus palabras.
Yo utilizaría la fu...Gracias Luis por tus palabras.<br />Yo utilizaría la función Day() para evaluar si el día del sistema es el primero. Te lo ejemplifico:<br />If Day(Date) = 1 then<br /> 'aqui va el código que dispara lo correos electrónicos<br />end if<br /><br />¿Se entiende? Si el día de hoy es igual a 1... se ejecuta la macro.<br />Cualquier duda, a tu disposición.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-58189370804713529662015-06-05T07:43:04.687-07:002015-06-05T07:43:04.687-07:00Hola Damian, eres un crack en esto... Cómo puedo h...Hola Damian, eres un crack en esto... Cómo puedo hacer para que los correos se envien todos los 1 del mes?Anonymoushttps://www.blogger.com/profile/05551565681459821793noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-16718583252208947292012-07-20T15:40:04.296-07:002012-07-20T15:40:04.296-07:00con la instrucción
ActiveSheet.Copy
se genera un l...con la instrucción<br />ActiveSheet.Copy<br />se genera un libro nuevo, conteniendo esa hoja.<br />Luego guardas el nuevo libro:<br />ActiveWorkbook.Save "C:\Mis Documentos\Libro_X_Mail.xls"<br />y usas esa ruta como parámetro para enviar el archivo adjunto.<br />Ese es un ejemplo, desde ya que puedes modificarlo, poniendo el nombre y directorio reales.<br />Suerte y cualquier cosa me avisas.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-79889361122788680322012-07-19T19:40:48.095-07:002012-07-19T19:40:48.095-07:00Graciass me funciono perfectamente ahora tengo otr...Graciass me funciono perfectamente ahora tengo otra duda yo puedo adjuntar en un correo enviado desde la macro una hoja de mi libro?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-44370234051515742212012-07-19T16:14:06.964-07:002012-07-19T16:14:06.964-07:00yo haría algo así:
Dim Correos as string
For X = ...yo haría algo así:<br />Dim Correos as string<br /><br />For X = 8 to 38<br /> Correos=Correos & Cells(X,"B") & ";"<br />next X<br />Correos = Left(Correos, (Len(Correos) - 1))<br />MsgBox Correos<br /><br />te explico: en la variable Correos voy almacenando todas las direcciones de mail, mediante un bucle, separando a cada una de ellas con punto y coma (;).<br />Cuando salgo del bucle utilizo la función Left para quitar el último punto y coma de la cadena.<br />Por ultimo muestro en un msgbox el resultado.<br />Probá este procedimiento tal cual te lo paso.<br />Luego incorporalo al sub que envía mails (quita el msgbox) y en la propiedad .To colocas la variable Correos.Damian Omar Silvahttps://www.blogger.com/profile/16039167842052507316noreply@blogger.comtag:blogger.com,1999:blog-1613210108185682998.post-43304421905819223582012-07-19T15:32:40.837-07:002012-07-19T15:32:40.837-07:00excelente aporte pero tengo una pequeña duda tengo...excelente aporte pero tengo una pequeña duda tengo 30 correos en una lista que van desde la celda b8 a la celda b38 como hago para poner todos esos correos en una variable para poderlos enviar?Anonymousnoreply@blogger.com