Tag Archives: vbscript

VBScript ile GMail üzerinden mail gönderme

Posted by on 28/05/2010 No comments

Epey bir araştırma yaptıktan sonra, adam akıllı çalışan bir kod buldum. Sıralama nın önemli olduğunuda öğrenmiş oldum. Çünkü diğer bulduğum kodlarda hemen hemen aynıydı, sadece sıralama farklı.

Const schema   = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoBasic = 1
Const cdoSendUsingPort = 2
Dim oMsg, oConf

' E-mail properties
Set oMsg      = CreateObject("CDO.Message")
oMsg.From     = "from@gmail.com"  ' or "Sender Name <from@gmail.com>"
oMsg.To       = "to@gmail.com"    ' or "Recipient Name <to@gmail.com>"
oMsg.Subject  = "Subject"
oMsg.TextBody = "Text body"

' GMail SMTP server configuration and authentication info
Set oConf = oMsg.Configuration
oConf.Fields(schema & "smtpserver")       = "smtp.gmail.com"
oConf.Fields(schema & "smtpserverport")   = 465
oConf.Fields(schema & "sendusing")        = cdoSendUsingPort
oConf.Fields(schema & "smtpauthenticate") = cdoBasic
oConf.Fields(schema & "smtpusessl")       = True
oConf.Fields(schema & "sendusername")     = "from@gmail.com"
oConf.Fields(schema & "sendpassword")     = "sender_password"
oConf.Fields.Update

oMsg.Send

Arama Kriterleri:

QTP de VBScript ile Rastgele String veya Number Üretmek

Posted by on 27/05/2010 No comments

Dün bir SAP projesini test ederken ad, soyad parametrelerini hep farklı girmem gerekiyordu. Bu yüzden

bu işi bir vbscript ile otomatikleştirmiş oldum.

kelime = karisikTextYarat("abcdefghijkmnpqrstuvwxyz", 4)
numara = karisikTextYarat("123456789", 1)

WScript.Echo kelime 'numara yazarsanız numara üretir yada kelime + numara derseniz 2sindende üretir

Function  karisikTextYarat(strCharacters, intLength)
Randomize
Dim strS, intI
For intI = 1 To intLength
strS = strS + Mid(strCharacters, Int(Rnd() * Len(strCharacters))+1, 1)
Next
karisikTextYarat=strS
End Function