Não está enviando um email quando o Outlook é fechado e aberto

Question

Estou fazendo alterações de código para dar suporte ao Outlook. Estou tendo problemas para enviar e-mail quando abro o outlook pela primeira vez, ou seja, ele exibe um e-mail em vez de enviá-lo. Mas a partir da segunda vez, ele automatiza o email. E também. Enviar não é suportado no meu caso. Então estou usando o Sendkeys.

Eu tentei o GetObject, createObject, mas isso não resolve o meu problema.

Por favor, sugira qualquer solução para isso.

Obrigado antecipadamente

    

Answer 1

Aqui está o VBScript totalmente funcional para enviar o email (funciona com o Outlook fechado e aberto):

Set objApp = CreateObject("Outlook.Application")
Set objMail = objApp.CreateItem(0)
Set objRecip = objMail.Recipients.Add("Test User")
objRecip.Resolve
objMail.Subject = "Test"
objMail.Save
objMail.Send
objApp.Session.SendAndReceive(False)