VB Script help

[Jack III]

Does anyone know if you can capture the sender's(From) e-mail automatically without specifying in the code?


Const cdoSendUsingPort = 2
Const cdoSendUsingPickup = 1
Const strSmartHost = "AppEmail.Tgt.Com"


dim OMsg
Set OMsg = CreateObject("CDO.Message")
Set Iconf = OMsg.Configuration
With iConf.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Update
End With


oMsg.To = "jack.lapan@target.com"
oMsg.From = "jack.lapan@target.com"
oMsg.Subject = "Test"
oMsg.HTMLBody = "test"
oMsg.Send

Set oMsg = Nothing
set Iconf = nothing

Msgbox("Done")

 

[Travis]

Check out this article "Retrieving the User's Default Email Address" on this site http://vbnet.mvps.org/