Excel VBA - email no Enviar Cuando el equipo está bloqueado

Question

estoy teniendo problemas para enviar mensajes de correo electrónico Outlook utilizando Excel VBA. Tengo el código para hacerlo - Sendupdate - y funciona bien cuando manualmente ejecuto la macro. Mi segunda macro StartTimer está destinada a ejecutar lo anterior a una hora determinada cuando no estoy en mi escritorio.

Sin embargo, cuando el equipo está bloqueado el correo electrónico no envía. Cuando vuelvo a mi escritorio, el correo electrónico cuelga allí como borrador, y necesito hacer clic en el botón send.

Aquí es mi código:

Sub SendUpdate() 
Recipient = "x@y.com" 
Subj = "update" 
Dim msg As String 
msg = "hello” 

HLink = "mailto:" & Recipient & "?" 
HLink = HLink & "subject=" & Subj & "&" 
HLink = HLink & "body=" & msg 
ActiveWorkbook.FollowHyperlink (HLink) 
    Application.Wait (Now + TimeValue("0:00:01")) 
    Application.SendKeys "%s" 
End Sub 

Sub StartTimer() 
Application.OnTime TimeValue("18:00:00"), "SendUpdate" 

End Sub 

¿Hay una manera de codificar la macro para asegurarse de que el correo electrónico es empujado? es probable

Answer 1

voy a romper este "tutorial" en 3 pasos

1) Escribir su macro de Excel

2) Preparación del archivo de VBScript

3) Configuración de la tarea en el programador de tareas de Windows

---

ESCRITURA dE LA MACRO EXCEL

---

abrir un nuevo archivo en Excel y en el módulo, pega este código

Option Explicit 

Const strTo As String = "abc@abc.com" 
Const strCC As String = "def@abc.com" '<~~ change "def@abc.com" to "" if you do not want to CC 
Const strBCC As String = "ghi@abc.com" '<~~ change "ghi@abc.com" to "" if you do not want to BCC 

Sub Sample() 
    Dim OutApp As Object, OutMail As Object 
    Dim strbody As String, strSubject As String 

    strSubject = "Hello World" 
    strbody = "This is the message for the body" 

    Set OutApp = CreateObject("Outlook.Application") 

    Set OutMail = OutApp.CreateItem(0) 

    On Error Resume Next 
    With OutMail 
     .To = strTo 
     .CC = strCC 
     .BCC = strBCC 
     .Subject = "This is the Subject line" 
     .Body = strbody 
     .Send 
    End With 
    On Error GoTo 0 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

Guarde el archivo de Excel como C:\Tester.Xlsm si está utilizando Excel 2007 en adelante o C:\Tester.Xls si está utilizando Excel 2003 y salida

---

Preparación del archivo VBSCRIPT

---

Abrir el Bloc de notas y pegue este código. Cambie la extensión ".xls" según corresponda.

Dim xlApp 
Dim xlBook 

Set xlApp = CreateObject("Excel.Application") 
Set xlBook = xlApp.Workbooks.Open("C:\Tester.xls", 0, True) 
xlApp.Run "Sample" 
xlBook.Close 
xlApp.Quit 

Set xlBook = Nothing 
Set xlApp = Nothing 

guardar el archivo como Tester.vbs y cerrar

---

CONFIGURACIÓN DEL tareas en Windows Task Scheduler

---

Podría confirmar sistema operativo de las ventanas? Hace Siddharth Rout 36 minutos

Windows XP -. Es mi computadora de trabajo (por lo que tiene los inicios de sesión habituales, etc.).- keynesiancross 18 mins ago

Haga clic en el botón de inicio | Todos los programas | Accesorios | Herramientas del sistema | Agenda de tareas para obtener esta ventana

doble clic en "Agregar tarea programada" para conseguir esta ventana

Haga clic en Siguiente

Haga clic en " Examine "y seleccione el archivo vbs que creamos anteriormente y haga clic en o n "abrir"

La siguiente ventana que se obtiene es crucial, ya que es aquí tenemos que mencionar cuando script necesita para funcionar

Después de haber hecho lo necesario, haga clic en siguiente.

En esta ventana, introduzca sus datos de acceso para que el script se puede ejecutar incluso cuando la pantalla está bloqueada.

Haga clic en "Siguiente" cuando termine y luego haga clic en "Finalizar" en la siguiente ventana. Su programador de tareas ahora se ve así

y ya está

---

Bloquear el equipo para empezar a tomar un café;) Cuando vuelvas (dependiendo de la hora de configurar en el planificador de tareas y cuánto tiempo es su descanso), el correo electrónico se habría enviado.

HTH

Answer 2

SendKeys el culpable. Todavía uso CDO para enviar correos electrónicos a través de Excel VBA. Esto debería empezar: http://www.rondebruin.nl/cdo.htm

Answer 3

que utiliza HTML y JavaScript setInterval para ejecutar código VBA para superar tal problema. Código:

<html> 
<script> 

var flag = false; 
var xlApp; 
var xlBook; 
var i = 0; 

function processExcel() 
{ 
//Open the excel containing macro for the first time 
if(flag==false) 
{ 
    xlApp = new ActiveXObject ("Excel.Application"); 
//Your Excel containing VBA code 
    xlBook=xlApp.Workbooks.Open("Count1.2.xlsm") 

} 
// "a" is the VBA macro 
xlApp.Run("a"); 

flag=true; 


i++; 
window.status="Last Updated " + new Date(); 


} 

var w 
function run() 
{ 

processExcel(); 

w= setInterval("processExcel()",120000); 


} 
function stop() 
{ 

clearInterval(w); 


} 

</script> 

<body > 

<input type="button" value="Start" onclick="run()" /> 
<input type="button" value="Stop" onclick="stop()"/> 


</body> 
</html>