none
Tenho que fazer um .vbs que envie um email com anexo mas sempre da erro na hora do Anexo RRS feed

  • Pergunta

  • Dim oMsg, oConf
    Set oMsg = CreateObject("CDO.Message")
    oMsg.From = "Meuemail@gmail.com" 
    oMsg.To = "toemail@hotmail.com"     
    oMsg.Subject = "Teste"
    oMsg.TextBody = "Hello World!"
    Set oConf = oMsg.Configuration
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuemail@gmail.com"
    oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"
    oConf.Fields.Update
    oMsg.Send()
    Wscript.echo(resultMessage)



    Mais aii n sei por o Comando de anexos Alguem ajuda ?
    • Editado zHaRd sábado, 22 de outubro de 2016 18:43
    sábado, 22 de outubro de 2016 18:25

Todas as Respostas