Hola,
Estoy intentando enviar un correo electrónico basado en un cambio de valor de celda indirecto (p. ej., > 7), con el archivo adjunto de correo electrónico y una referencia de celda específica a las celdas modificadas en el cuerpo de mi correo de salida. Tengo el cambio de valor de celda indirecto según los criterios. Sin embargo, recibo un error 424 cuando intento configurar una variable para llamar a la dirección de la celda en mi correo electrónico. ¿Podrías ayudar? Siento que estoy cerca.
Dim xRg como rango
Dim xRgSel como rango
'Establecer rango y objetivo
Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Dim xRgPre como rango
On Error Resume Next
Si Target.Cells.Count > 1, entonces salga de Sub
Establecer xRg = Rango ("Q2:Q43")
Establecer xRgPre = xRg.Precedentes
Establezca xRgSel = Intersect (Objetivo, xRg)
ActiveWorkbook.Guardar
Si xRg.Value > 7 Entonces
Llame a Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Entonces
Si terminar
Si terminar
End Sub
Sub Mail_small_Text_Outlook ()
Dim xOutApp como objeto
Dim xOutMail como objeto
Dim xMailBody como cadena
Establecer xOutApp = CreateObject("Outlook.Aplicación")
Establecer xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hola, celda(s)" & xRgSel.Address(False, False) & _
" en la hoja de trabajo '" & Me.Name & "' son 3 días después de la ingesta" & vbNewLine & vbNewLine & _
"Revise y comuníquese con los clientes potenciales" & vbNewLine & _
"Gracias"
On Error Resume Next
Con xOutMail
.Para = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Días desde la ingesta de plomo"
.Cuerpo = xCuerpo de correo
.Adjuntos.Agregar (EsteLibro.NombreCompleto)
.Mostrar 'o .Enviar
End With
En caso de error, vaya a 0
Establecer xOutMail = Nada
Establecer xOutApp = Nada
End Sub
¡Gracias!
Estoy intentando enviar un correo electrónico basado en un cambio de valor de celda indirecto (p. ej., > 7), con el archivo adjunto de correo electrónico y una referencia de celda específica a las celdas modificadas en el cuerpo de mi correo de salida. Tengo el cambio de valor de celda indirecto según los criterios. Sin embargo, recibo un error 424 cuando intento configurar una variable para llamar a la dirección de la celda en mi correo electrónico. ¿Podrías ayudar? Siento que estoy cerca.
Dim xRg como rango
Dim xRgSel como rango
'Establecer rango y objetivo
Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Dim xRgPre como rango
On Error Resume Next
Si Target.Cells.Count > 1, entonces salga de Sub
Establecer xRg = Rango ("Q2:Q43")
Establecer xRgPre = xRg.Precedentes
Establezca xRgSel = Intersect (Objetivo, xRg)
ActiveWorkbook.Guardar
Si xRg.Value > 7 Entonces
Llame a Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Entonces
Si terminar
Si terminar
End Sub
Sub Mail_small_Text_Outlook ()
Dim xOutApp como objeto
Dim xOutMail como objeto
Dim xMailBody como cadena
Establecer xOutApp = CreateObject("Outlook.Aplicación")
Establecer xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hola, celda(s)" & xRgSel.Address(False, False) & _
" en la hoja de trabajo '" & Me.Name & "' son 3 días después de la ingesta" & vbNewLine & vbNewLine & _
"Revise y comuníquese con los clientes potenciales" & vbNewLine & _
"Gracias"
On Error Resume Next
Con xOutMail
.Para = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Días desde la ingesta de plomo"
.Cuerpo = xCuerpo de correo
.Adjuntos.Agregar (EsteLibro.NombreCompleto)
.Mostrar 'o .Enviar
End With
En caso de error, vaya a 0
Establecer xOutMail = Nada
Establecer xOutApp = Nada
End Sub
¡Gracias!