email con

echo.Dim iMsg                                                                                       > %~n0.vbs
echo.Dim iConf                                                                                     >> %~n0.vbs
echo.Dim Flds, var                                                                                 >> %~n0.vbs

echo.Set iConf = CreateObject("CDO.Configuration")                                                 >> %~n0.vbs
echo.iConf.Load -1                                                                         		>> %~n0.vbs
echo.Set Flds = iConf.Fields                                                                       >> %~n0.vbs
echo.With Flds                                                                                     >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1                >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""    >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""           >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "       >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                       >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'NOT 25 OR 587 >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True                   >> %~n0.vbs
echo.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60          >> %~n0.vbs
echo.  .Update                                                                                     >> %~n0.vbs
echo.End With                                                                                      >> %~n0.vbs

echo.Set iMsg = CreateObject("CDO.Message")                                                        >> %~n0.vbs
echo.strbody = "See attached"                                                                      >> %~n0.vbs
echo.With iMsg                                                                                     >> %~n0.vbs
echo.  Set .Configuration = iConf                                                                  >> %~n0.vbs
echo.  .To = ""                                                         >> %~n0.vbs
echo.  .CC = ""                                                                                    >> %~n0.vbs
echo.  .BCC = ""                                                                                   >> %~n0.vbs
echo.  .From = ""                                                       >> %~n0.vbs
echo.  .Subject = ""                                             >> %~n0.vbs
echo.  .TextBody = strbody                                                                         >> %~n0.vbs
echo.  .AddAttachment ""                       >> %~n0.vbs
echo.  .Send                                                                                       >> %~n0.vbs
echo.End With