VBS script for mailto

Sākumlapa Forumi Software Windows VBS script for mailto

Tiek skatīts 7 ierakstu – 1 līdz 7 (no 7 kopumā)
  • Autors
    Ieraksti
  • #152352
    Daivana
    Participant

    Sveiki!

    Vajag palīdzēt izprast kur problēma skriptā vai datorā.

    Strādāju ar Imacro un man ir izveidots skripts kas atlasa datus no specifiskas weblapas, kad to izdara tad saliek atiecīgās vietās un izveidot tādu kā template ko uzreiz sūta uz e-pastu.

    Piemērs.

    Code:

    Const cdoSendUsingPickup = 1 ‘Send message using the local SMTP service pickup directory.
    Const cdoSendUsingPort = 2 ‘Send the message using the network (SMTP over the network).

    Const cdoAnonymous = 0 ‘Do not authenticate
    Const cdoBasic = 1 ‘basic (clear-text) authentication
    Const cdoNTLM = 2 ‘NTLM

    Dim im, ret

    Set im = CreateObject(”iMacros”)

    CheckErr(im.iimInit())
    CheckErr(im.iimPlay(”Extract”))

    Dim objMessage
    Set objMessage = CreateObject(”CDO.Message”)

    objMessage.Subject = im.iimGetLastExtract(1)
    objMessage.From = “””iMacros””
    objMessage.To = “[email protected]
    objMessage.BCC = “[email protected]
    objMessage.TextBody = “Labdien!” & vbNewLine & vbNewLine &_
    “Nosutam pieteikumu izpildei.” & vbNewLine & vbNewLine &_
    “Pieteikuma sanemsanas datums:- ” & im.iimGetLastExtract(12) & vbNewLine & vbNewLine &_
    “Pieteikuma ID:” & vbNewLine & vbNewLine &_
    “Pieteiceja vards, uzvards:- ” & im.iimGetLastExtract(2) & vbNewLine & vbNewLine &_
    “Strukturvieniba, amats:- ” & im.iimGetLastExtract(3) & vbNewLine & vbNewLine &_
    “Kontaktinformacija (talrunis, e-pasts):- ” & im.iimGetLastExtract(4) & vbNewLine & vbNewLine &_
    “Pieteikuma tips:- ” & im.iimGetLastExtract(5) & vbNewLine & vbNewLine &_
    “Risinasanas prioritate:- ” & im.iimGetLastExtract(6) & vbNewLine & vbNewLine &_
    “Kategorija:- ” & im.iimGetLastExtract(7) & vbNewLine & vbNewLine &_
    “Pieteikuma virsraksts:- ” & im.iimGetLastExtract(8) & vbNewLine & vbNewLine &_
    “Pieteikuma detalizets apraksts:- ” & im.iimGetLastExtract(9) & vbNewLine & vbNewLine &_
    “Pakalpojuma sniegsanas vieta vai incidenta noversanas adrese:- ” & im.iimGetLastExtract(13) & vbNewLine & vbNewLine &_
    “Velamais izpildes termins:- ” & im.iimGetLastExtract(11) & vbNewLine & vbNewLine &_
    “Ludzam informet par pieteikuma risinasanas uzsaksanas datumu un laiku uz e-pasta adresi: [email protected]” & vbNewLine & vbNewLine &_
    “Paldies!”

    ‘Serv conf.

    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

    ‘Name or IP of Remote SMTP Server
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.gmail.com”

    ‘Type of authentication, NONE, Basic (Base64 encoded), NTLM
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = cdoBasic

    ‘Your UserID on the SMTP server
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/sendusername”) = “[email protected]

    ‘Your password on the SMTP server
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/sendpassword”) = “kātad :D”

    ‘Server port (typically 25)
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 587

    ‘Use SSL for the connection (False or True)
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = True

    ‘Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
    objMessage.Configuration.Fields.Item _
    (”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60

    objMessage.Configuration.Fields.Update

    ‘==End remote SMTP server configuration section==

    objMessage.Send

    Sub CheckErr(retCode)

    If retCode < 0 Then MsgBox im.iimGetLastError(), vbCritical, "Macro Error: " & retCode WScript.Quit() End If End Sub

    Viss ir skaisti, dati tiek nolasīti no lapas, bet kad tiek līdz Send. tā izmet erroru “Transport failed to connect to the server”

    Principā bija jaatveras Thundermail klientam ar gatavu template, bet nekā.

    Pārbaudīju firewall pusi, bet tur nekā.

    Configuration dati visādi mainīti, pašā skriptā kas savāc datus nav problēmas jo bez VBS skripta tas strādā, tātad datus extracto kā vajag.

    Varbūt kāds zina vai google jūzošana prasa citu parametrus priekš vbs?

    #249548
    Daivana
    Participant

    Pārgūglojos apkārt un man liekas, ka kaut kas ar portiem vai ugunsmūri vai vēl nezin kur vaina.

    Izmēģināju visādos veidos, nu nav ne mazākā nojausma kāpēc negribas sūtīties mails.

    Lūk ērtāks piemērs.

    Code:

    Const fromEmail = “[email protected]
    Const password = “spirdiens”
    Const toEmail = “[email protected]
    Const subMail = “Lol”
    Const subBody = “Ak jel testing”
    ‘****END OF CONFIGURATION
    ‘***********

    Dim emailObj, emailConfig
    Set emailObj = CreateObject(”CDO.Message”)
    emailObj.From = fromEmail
    emailObj.To = toEmail
    emailObj.Subject = subMail
    emailObj.TextBody = subBody

    Set emailConfig = emailObj.Configuration
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.gmail.com”
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 465
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = true
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/sendusername”) = fromEmail
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/sendpassword”) = password
    emailConfig.Fields(”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 10
    emailConfig.Fields.Update

    emailObj.Send

    Set emailobj = nothing
    Set emailConfig = nothing

    #249549
    root
    Participant

    Uztaisi lokālu gateway iekš .NET.

    #249550
    Daivana
    Participant

    Paldies par padomu.

    mēģinu googlā atrast

    creating/making a local gateway in .NET

    Laikam ne tā rakstu vai meklēju

    Vopšem nemāku :), nezinu kas tas viss ir :D, varbūt varētu drusciņpateikt kā to un kur to?

    #249551
    Foxsk8
    Participant

    Vispārīgi, vai tad nebija tā, ka vajadzēja SMTP serveri vispirms, lai varētu sūtīt mailus, kur arī viss konektējās uz 25 portu. Vismaz ar php lietām, tā ir, ja skriptu, turi uz savas kastes.

    #249552
    Daivana
    Participant

    foxsk8 wrote:

    Vispārīgi, vai tad nebija tā, ka vajadzēja SMTP serveri vispirms, lai varētu sūtīt mailus, kur arī viss konektējās uz 25 portu. Vismaz ar php lietām, tā ir, ja skriptu, turi uz savas kastes.

    Nu principā mans gmail konts der šim.

    Viena lieta ko pamanīju ir ka man scripts negāja jo man sistēmas laiks bija pārlikts uz 2 gadiem uz priekšu 😀 nu tam ir savs iemesls, pārliekot atpakaļ tagad vienkārši it nekas nenotiek, viņš man itkā aiziet, bet mails nenosūtas, nezinu kur vaina.


    Scripts izmēģināts uz 3 citiem datoriem, nekas nemainās.

    Sakonfigurēju ar citu mail servaku, bez izmaiņām, vienkārši scriptu palaiž un neko neuzrāda/nepasaka.

    Kāds var izskaidrot vai .vbs ir kaut kādi dependencies.


    Viss kārtībā, nākamreizi jaatcerās palūrēt pašu e-pastu lol, proti es jau gaidīju, ka man izmetīs meilera klienta logu, bet nekā, šie skripti kā silent mode aizsūta meilus pffff…

    #249553
    calabria
    Participant

    man ir batņiks kas sūta mailu, ja ir interese varu nosūtīt, un tur nekādi maili nav vajadzīgi, tikai adresāts+ tava ISP SMTP serveris publiskais. Ja ir interese raksti. edgars(iekš)nilauto(punkc)lv

Tiek skatīts 7 ierakstu – 1 līdz 7 (no 7 kopumā)
  • Jums ir jāpieslēdzas sistēmai, lai varētu komentēt šo tēmu.
Jaunākais portālā