Estoy tratando de darle formato a correos enviados mediante macro de excel (gmail "poner negritas") a algunas partes del correo
Este es el código que ocupo
ub SendMail_Gmail() 'Fuente: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm Dim Email As CDO.Message Set Email = New CDO.Message correo = "[email protected]" passwd = "pwd" destino = "[email protected]" mensaje = Range("A1") cuerpo = Range("B1") archivo = Range("C1") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465) .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1) .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With With Email .To = destino .From = correo .Subject = mensaje .TextBody = cuerpo .AddAttachment archivo .Configuration.Fields.Update On Error Resume Next .Send End With If Err.Number = 0 Then MsgBox "El mail se envió con éxito", vbInformation, "Informe" Else MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number End If End Sub
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo el código actualizado para enviar "negritas". Te puse un par de ejemplos:
Sub SendMail_Gmail() 'Por.Dante Amor 'Fuente: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm Dim Email As CDO.Message Set Email = New CDO.Message correo = "[email protected]" passwd = "pwd" ' destino = "[email protected]" mensaje = Range("A1") archivo = Range("C1") cuerpo = "<HTML> " & "<BODY>" & _ "<b>" & _ "Esta información va a salir en negritas" & _ "</b><br>" & _ "este texto va a salir en letra normal" & _ "<b><br>" & _ "con la letra b se cambia a negritas" & _ "</b><br>" & _ "Saludos" & _ "</BODY> " & "</HTML>" ' Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465) .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1) .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With With Email .To = destino .From = correo .Subject = mensaje '.TextBody = cuerpo .HTMLBody = cuerpo .AddAttachment archivo .Configuration.Fields.Update On Error Resume Next .Send End With If Err.Number = 0 Then MsgBox "El mail se envió con éxito", vbInformation, "Informe" Else MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number End If End Sub
':) ':)
