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.
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?
.
