Modificar el código en excel
"para Dante Amor"
Buenos días dante
Necesito que me ayudes con esto
Tu me enviaste el código para envío de correos electrónicos,
Ahora necesito que me ayudes a ajustarlo lo que necesito es que me digas o me cambies el código para que pueda dar espacios dentro del cuerpo del mensaje,
En la actualidad esta así
Sub EnviarCorreos()
'Por.Yonathan Tellez Castillo
'Enviar por GMAIL
Dim Email As CDO.Message
'
correo = "[email protected]"
passwd = "37548758"
'
For i = 11 To Range("K" & Rows.Count).End(xlUp).Row
If Not IsError(Cells(i, "K")) Then
If Cells(i, "K") <= 7 Then
Set Email = New CDO.Message
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 = Cells(i, "F")
.From = correo
. Subject = "Apreciado colaborador. Nos permitimos notificarle que el plazo establecido para enviar el informe que esta bajo su responsabilidad es de menos de ocho días. No olvide consultar su tablero de mando. Este es un mensaje de la Dirección de Planeación y Calidad. Trabajamos Unidos por la Salud de Santander."
.Configuration.Fields.Update
On Error Resume Next
.Send
End With
If Err.Number = 0 Then
'MsgBox "Hoja Guardarda y enviada por Outlook", vbInformation, "CREAR CARPETA Y GUARDAR HOJA"
Else
'MsgBox "Se produjo el siguiente error: " & Err.Number & " " & Err.Description
End If
Set Email = Nothing
End If
End If
Next
MsgBox "Fin"
End Sub
Necesito que me quede el mensaje así
"Apreciado colaborador.
Nos permitimos notificarle que el plazo establecido para enviar el informe que esta bajo su responsabilidad es de menos de ocho días.
No olvide consultar su tablero de mando. Este es un mensaje de la Dirección de Planeación y Calidad.
Trabajamos Unidos por la Salud de Santander."
1 respuesta
H o l a:
Te anexo la macro:
Sub EnviarCorreos() 'Por.Dante Amor 'Enviar por GMAIL Dim Email As CDO.Message ' correo = "[email protected]" passwd = "tupassword" ' For i = 11 To Range("K" & Rows.Count).End(xlUp).Row If Not IsError(Cells(i, "K")) Then If Cells(i, "K") <= 7 Then Set Email = New CDO.Message 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 = Cells(i, "F") .From = correo .Subject = "Asunto del correo" .HTMLBody = "Apreciado colaborador. " & "<br> <br>" & _ "Nos permitimos notificarle que el plazo establecido " & _ "para enviar el informe que esta bajo su responsabilidad " & _ "es de menos de ocho días. " & "<br> <br>" & _ "No olvide consultar su tablero de mando. Este es un mensaje " & _ "de la Dirección de Planeación y Calidad. " & "<br> <br> <b>" & _ "Trabajamos Unidos por la Salud de Santander." .Configuration.Fields.Update On Error Resume Next .Send End With If Err.Number = 0 Then 'MsgBox "Hoja Guardarda y enviada por Outlook", vbInformation, "CREAR CARPETA Y GUARDAR HOJA" Else 'MsgBox "Se produjo el siguiente error: " & Err.Number & " " & Err.Description End If Set Email = Nothing End If End If Next MsgBox "Fin" End Sub
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
¡Gracias!
Dante buenos días, se me olvido algo en esta macro, que pena me gustaría que me colaborara con algo más, discúlpeme por favor
Mire la idea a es la siguiente, esta funcionando perfecto, cuando el busca los que están menores de siete en la columna que pero necesito que haga lo mismo en las columnas N, QUE, T, W, Z, AC, AF, AI, AL, AO, AR, por que como es para todo el año necesito que envíe correo según se acerque la fecha.
Mil gracias, disculpe tanta molestia.
