tag:blogger.com,1999:blog-4623278671508370136.post1788197445560572779..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Adjuntar hoja activa como pdf al enviar un email desde Excel.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger15125tag:blogger.com,1999:blog-4623278671508370136.post-3033517246807482662018-11-27T16:24:28.272+01:002018-11-27T16:24:28.272+01:00Hola,
para que se envíe el email en la fila 51 del...Hola,<br />para que se envíe el email en la fila 51 del código debería poner:<br />.Send<br /><br />sin apóstrofe<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-87471807214662392512018-11-27T16:12:14.143+01:002018-11-27T16:12:14.143+01:00Hola buenas, el mail no se envia que puede ser el ...Hola buenas, el mail no se envia que puede ser el causante ?Anonymoushttps://www.blogger.com/profile/01903460961408573443noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-24708837525501606822016-10-14T16:16:25.525+02:002016-10-14T16:16:25.525+02:00Hola Juanjo,
en la linea 18
NombreFicheroTemporal ...Hola Juanjo,<br />en la linea 18<br />NombreFicheroTemporal = ActiveSheet.Name & ".pdf"<br />cámbialo por<br />NombreFicheroTemporal = range("A1").value & ".pdf"<br />en A1 estaría el nombre que quieres dar al pdf<br /><br />La segunda parte, si la he entendido bien, es más elaborada...pero para condicionar el destinatario podrías emplear un SELECT CASE o un IF.. THEN...<br /><br />En todo caso, mejor lee las normas de uso del blog, en particular la parte de peticiones a medida.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-83025273066271451112016-10-14T14:53:30.011+02:002016-10-14T14:53:30.011+02:00Genial! Muy bueno. Me sirvió de mucho!
Pero neces...Genial! Muy bueno. Me sirvió de mucho!<br /><br />Pero necesito que me des una ayuda.<br />Quiero esto mismo, pero poder ponerle un nombre al adjunto que envía y que para eso tome el valor de una celda que tiene el nombre que deberia tener ese adjunto PDF.<br /><br />Y Por ultimo, necesito que condicionalmente envie el mail a los destinatarios. Osea... yo tengo que hacer una planilla de rendición de gastos para una empresa, tengo que hacer que el mail lo envie al aprobador que corresponde a ese empleado, y ponga en copia a los correspondientes controladores, y que si es otro empleado pueda elegir a otros destinatarios como aprobadores y controladores.<br /><br />Espero que me puedas dar una mano!<br /><br />Muchas gracias por tu aporte desde ya!Anonymoushttps://www.blogger.com/profile/16505526994765246968noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-44727573356423131262016-10-03T09:25:58.984+02:002016-10-03T09:25:58.984+02:00Hola Karen,
podrías hacer un bucle
for each sh in...Hola Karen,<br />podrías hacer un bucle <br />for each sh in worksheets<br /> sh.ExportAsFixedFormat ......<br />next sh<br /><br />es decir, ir exportando hoja a hoja..<br /><br />Espero haber entendido bien tu cuestión<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-65763513831447296632016-10-01T17:58:45.535+02:002016-10-01T17:58:45.535+02:00Hola!
Muchas gracias me sirvió muchísimo, Como po...Hola!<br /><br />Muchas gracias me sirvió muchísimo, Como podría adjuntar todo el archivo (2 pestañas) en pdf?<br /><br />Gracias!Anonymoushttps://www.blogger.com/profile/04074543411290780581noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-65880598207807255442016-09-27T09:39:58.617+02:002016-09-27T09:39:58.617+02:00Hola Daniel,
???
tendría que ver el fichero.. no ...Hola Daniel,<br />???<br /><br />tendría que ver el fichero.. no tiene sentido que se pare en la línea:<br />MsgBox err.Description<br />si ha llegado ahí es por que existe algún error anterior...<br />Puedes enviarme el fichero a:<br />excelforo@gmail.com<br />?<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-74711748966555143132016-09-26T23:14:05.468+02:002016-09-26T23:14:05.468+02:00Se para en la ultima línea.Se para en la ultima línea.Anonymoushttps://www.blogger.com/profile/04335753189461190721noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-11626617552679960122016-09-26T08:54:00.406+02:002016-09-26T08:54:00.406+02:00Hola Daniel,
Entiendo has copiado y pegado el códi...Hola Daniel,<br />Entiendo has copiado y pegado el código del post tal cual.<br />El problema de ese mensaje es que siempre es muy ambiguo... en qué linea se paró el depurador?<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-326237298720274522016-09-26T04:32:43.417+02:002016-09-26T04:32:43.417+02:00Buenas tardes, me sale un mensaje
"error defi...Buenas tardes, me sale un mensaje<br />"error definido por la aplicación o el objeto"<br />Anonymoushttps://www.blogger.com/profile/04335753189461190721noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-46142455503049256612016-09-04T10:35:19.960+02:002016-09-04T10:35:19.960+02:00Hola,
estás seguro existe el pdf en esa ruta con e...Hola,<br />estás seguro existe el pdf en esa ruta con el nombre que toma de la celda C3 ??<br />es lo primero a revisar<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-52636912135871048962016-09-02T07:34:07.335+02:002016-09-02T07:34:07.335+02:00EL ERROR LO ARROJA EN .Attachments.Add ADJEL ERROR LO ARROJA EN .Attachments.Add ADJGUERAhttps://www.blogger.com/profile/17011303116105054590noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-86864542097501347722016-09-02T07:32:04.281+02:002016-09-02T07:32:04.281+02:00BUENAS NOCHES TENGO EL SIGUIENTE CÓDIGO PERO ME IN...BUENAS NOCHES TENGO EL SIGUIENTE CÓDIGO PERO ME INDICA QUE HAY UN ERROR DADO QUE NO ENCUENTRA LA RUTA, ME PUEDEN AYUDAR Y ES QUE YO TENGO QUE ENVIAR UNA LISTA DE PDF'S CON DIFERENTES NOMBRES A DIFERENTES DESTINATARIOS<br /><br />Sub EnviarEmail()<br />'<br />' Declaramos variables<br />'<br />Dim OutlookApp As Outlook.Application<br />Dim MItem As Outlook.MailItem<br />Dim cell As Range<br />Dim Asunto As String<br />Dim Correo As String<br />Dim Destinatario As String<br />Dim Recibo As String<br />Dim Msg As String<br />Dim ADJUNTO, ADJ As Variant<br /><br /> '<br /> Set OutlookApp = New Outlook.Application<br /> '<br /> 'Recorremos la columna EMAIL<br /> '<br /> For Each cell In Range("B3:B23")<br /> '<br /> 'Asignamos valor a las variables<br /> '<br /> Destinatario = cell.Offset(0, -1).Value<br /> Correo = cell.Value<br /> Recibo = cell.Offset(0, 1).Value<br /> Asunto = "RECIBO DE NOMINA DE " & Destinatario<br /> <br /> ADJ = "C:\Users\HP2\Desktop\MACRO PARA ENVIAR RECIBOS\" & Range("c3").Value & ".pdf"<br /> <br /> 'Cuerpo del mensaje<br /> '<br /> Msg = "Buenas Tardes " & Destinatario & vbNewLine & vbNewLine<br /> Msg = Msg & "Envio recibo correspondiente de la Cta 17 " & vbNewLine<br /> Msg = Msg & "Atentamente: Teresa Hernandez" & vbNewLine<br /> Msg = Msg & "Nóminas." & vbNewLine<br /> '<br /> Set MItem = OutlookApp.CreateItem(olMailItem)<br /> With MItem<br /> .Attachments.Add ADJ<br /> .To = Correo<br /> .Subject = Asunto<br /> .Body = Msg<br /> .Send<br /> <br /> '<br /> End With<br /> '<br /> Next<br /> '<br />End SubGUERAhttps://www.blogger.com/profile/17011303116105054590noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-61279700800246598602015-09-02T03:30:33.730+02:002015-09-02T03:30:33.730+02:00EXCELENTE !!!!EXCELENTE !!!!hjfhttps://www.blogger.com/profile/08591268450713523080noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-3352069430717205402015-09-02T03:29:48.004+02:002015-09-02T03:29:48.004+02:00Este comentario ha sido eliminado por el autor.hjfhttps://www.blogger.com/profile/08591268450713523080noreply@blogger.com