Script de teste de envio de email
Por forma a verificar se os componentes do sistema operativo da maquina em causa estão a funcionar correctamente pode-se executar uma Script para esse efeito, para isso:
- Crie um ficheiro TXT e coloque o código e renomeie para .vbs.
- Execute o ficheiro, com antivirus e firewal parados.
- Deverá enviar\receber um email através do Outlook a dizer "Envio de Email com sucesso"
- Código do ficheiro vbs de teste de envio de email:
Dim newMail
Dim oapp
Dim inbox
Set oapp = createobject("outlook.Application")
set inbox = oapp.session.getdefaultfolder(6)
Set newmail = oapp.CreateItem(0)
newmail.To = Oapp.Session.CurrentUser
newmail.Subject = "Envio de Email com sucesso"
newmail.save
newmail.Send
set inbox = nothing
Set newMail = Nothing
Em anexo o ficheiro já com a script.
Actualizado em 2014-08-06
Comentários