Jose BN

Hola! Gersón a vba solo le hace falta hablar!.... por el momento la forma correcta que mencionas, no la había logrado encontrar en mis lecturas hasta llegar a este genial sitio y toparme con un personal el doble de genial (tú)que me ayudo a resolver el problema, ha quedado claro el error y solucionado. Tema concluido. Saludos cordiales JB

Buenos días! Amigos estoy buscando una solución que me permita enviar un correo en nombre de otra cuenta, en lo que he logrado leer es posible, la siguiente instrucción trabaja bien, pero al momento de intentar agregar .AddAttachment "C:\Users\jballadares\Desktop\Comprobante.pdf", me salta el siguiente error (imagen adjunta), podrían ayudarme como resolverlo de forma que me permita adjuntar un documento : Sub SendEmailOnBehalf() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim olMailItm As Outlook.MailItem Set olMailItm = Outlook.CreateItem(olMailItem) With olMailItm .SentOnBehalfOfName = "Boletarecolectores@dospinos.com" 'indicamos la cuenta desde donde enviar el email (en nombre de...) .To = Hoja11.Range("B5").Value .Subject = "Notificación Automática Comprobante " & " " & Range("j4") '"Asunto"" .Body = "Estimado usuario adjunto encontrará el detalle del registro de horas extras reportadas, este correo es generado en forma automática se le ruega no responder." & vbNewLine & "Saludos cordiales" .Display .Send End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Abusando un poco este un ejemplos obra Héctor compartió hace un tiempo, si notas creo que se adaptan a los criterios que buscas aplicar, solo ajustarlo a lo deseado: Sub Aplicar_FC() Dim Color, Cond, n As Byte Color = Array(3, 6, 50) Cond = Array(">20", ">15", "<=15") Range("f2:f24").Select With Selection With .FormatConditions .Delete For n = 1 To 3 .Add Type:=xlExpression, Formula1:="=$h$1-f2" & Cond(n) With .Parent.FormatConditions(n) .Font.Bold = True .Interior.ColorIndex = Color(n) End With Next End With End With End Sub

Marco revisa creo que esto te podría servir: Sub formato() Dim celda As Object Dim rng As Range 'con INPUTBOX seleccionamos un rango de celdas Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8) 'recorremos cada celda del rango seleccionado For Each celda In rng valor = celda.Value 'asignamos colores según el valor de la celda If valor = "LIBRA" Then celda.Interior.Color = 65535 ElseIf valor = "PERMISO" Then celda.Interior.Color = 15773696 ElseIf valor = "GUARDIA" Then celda.Interior.Color = 255 ElseIf valor = "CONSULTA" Then celda.Interior.Color = 5296274 End If Next celda End Sub

Genial como siempre! Antoni

Por cierto me parece se adapta a lo que buscas en tu otro post.

Karen no hay error en el formato! es solo el directorio donde se busca la imagen. El archivo esta estupendo!!! tierra pampa. Saludos, JB

Muchas gracias! concluido.

Héctor podría abusarme si me indicarás como podría convertir la hoja de excel a pdf para adjuntarle en el envio del correo, ya que observo que este método, no me funcionará: Set h2 = Sheets("Hoja1") wpath = ThisWorkbook.Path & "\" nombre = h2.Name h2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=wpath & nombre & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Set dam = CreateObject("outlook.application").createitem(0) J

Héctor ha valido la perseverancia y la buena vocación para orientar de tu parte. Mi error, radicaba en smtp.server.com como lo expresas: un error del tipo "-2147xxx..." significa que se intenta utilizar (o llamar a) un objeto que no esta presente (o no inicializado). Lo cual he corregido y comprobado que los métodos funcionan como lo garantizaste. Muchas gracias! J "Tema concluido"

Héctor he estado intentando utilizar esta macro: Pero esta me muestra el error adjunto, se le puede llegar a la solución? Set myMail=CreateObject("CDO.Message") myMail.Subject="Sending email with CDO" myMail.From="mymail@mydomain.com" myMail.To="someone@somedomain.com" myMail.TextBody="This is a message." myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="smtp.server.com" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing

Héctor me descargué los ejemplos que amablemente me ha adjuntado, pero me salta error en la linea:" .Send" tendrás una idea como solucionarlo? Saludos

Héctor muchas gracias por la pronta respuesta, te comento que la opción 1 la he intentado, pero no me funcionó. la PC cuenta con office 365-2016. Intentando seguir los pasos de la opción 2 me salta el siguiente error (ver fichero). Te agradezco la ayuda, si me puedes orientar a resolver mi problema. Saludos J Nuevo Archivo WinRAR.rar

Hola! Amigos, Actualmente tengo un excel con un macro que encontré en internet para el envio de correo de una hoja de excel, pero el Outlook, versIón 2016 me muestra una moesto mensaje: "Un programa está intentando enviar correo en su nombre" revisando en la web he intentado lo siguiente sin éxito: Puede cambiar la configuración seleccionando Herramientas | Opciones | Otros | Opciones avanzadas y marcando la casilla Permitir script en carpetas compartidas. Verá que también hay una opción para Permitir script en carpetas públicas. En Outlook 2007, estas configuraciones están en Herramientas | Cuadro de diálogo Centro de confianza, bajo Seguridad de correo electrónico El autor de la macreo es Dante en todoexpertos: Application.DisplayAlerts = False ' 'Se estable cuál hoja se va a guardar en PDF Set h2 = Sheets("Extras") ' 'Ruta donde se va a guardar el archivo PDF, 'en la misma carpeta donde tienes el archivo con la macro wpath = ThisWorkbook.Path & "\" ' 'el nombre del archivo será el mismo que tiene hoja nombre = h2.Name ' 'Se genera el archivo PDF h2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=wpath & nombre & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False ' 'Se envía el archivo por outlook Set dam = CreateObject("outlook.application").createitem(0) dam.to = Hoja11.Range("B5").Value 'Destinatario dam.body = "Estimado usuario adjunto encontrará el detalle del registro de horas extras reportadas, este correo es generado en forma automática se le ruega no responder." dam.Subject = "Notificación Automática " & " " & Range("j4") '"Asunto" dam.Attachments.Add wpath & nombre & ".pdf" dam.Send Agradezco me puedan ayudar para quitar este molesto mensaje: Mis disculpas si el tema no va en la categoría.

Gersón tienes toda la razón a mayor detalle mejor certeza en la respuesta! mis disculpas por omitirlo... Si no resulta abusado y conoces la rutina vba esto a efectos de "conocer/aprender" quedaría agradecido de mi parte, de lo contrario igualmente es satisfactoria la solución brindada. Saludos Jose