DTS中的邮件服务器使用

'**********************************************************************'  Visual Basic ActiveX Script'************************************************************************

Function Main() Set conn = CreateObject("ADODB.Connection") conn.Open "driver={sql server};server=Bert; uid=internetguest;pwd=guest;database=membercalls" Set conn2 = CreateObject("ADODB.Connection") conn2.Open "driver={sql server};server=Bert; uid=internetguest;pwd=guest;database=master" Set rs = conn.Execute("sp_slcAllMasterGroup_noSI") MasterGroup = rs.getRows() MasterGroupUBound = UBound(MasterGroup,2)  dim Message Tab = chr(9) for i = 0 to MasterGroupUBound  message = ""  message = "Dear " & MasterGroup(1,i) & ", " & Vbcr  message = "The following Employees have changed or enrolled.  Please log-on to our website to approve or deny " _  & "the enrollment or Changes at http://www.ACHOnline.com/ " & chr(10) & chr(10)  message = message & "EMPLOYEE NAME" & space(47)  message = message & "EFFECTIVE DATE" & Tab & Tab & "LIFE EVENT" & chr(10)  Set rs = conn.Execute("sp_slcEmpChangesandAdditions " & masterGroup(0,i))  NoRecord = True

  Set Mailer = CreateObject("SMTPsvg.Mailer")  Mailer.FromName = "America's Choice Healthplans"    Mailer.FromAddress = "achmail@achonline.com"   Mailer.RemoteHost = "mail.achonline.com"  Mailer.ReturnReceipt = false  Mailer.ConfirmRead = false  Mailer.Subject = "Employee Additions/Changes"  Mailer.Organization = "America's Choice Health Plans"  'Mailer.ContentType = "text/html"  'Mailer.AddRecipient "", "pkearney@achonline.com"  'if masterGroup(0,i)=1910 then  ' Mailer.AddRecipient "", "jimma.grigsby@katzenbach.com"  'end if  Mailer.AddRecipient "", MasterGroup(48,i)    while not rs.eof   NoRecord = False   message = message & UCase(trim(rs("employee_name")))   spaces = space(60 - len(trim(rs("employee_name"))))   message = message & spaces   spaces = 14 - len(cstr(rs("effective_date")))   if spaces < 0 then spaces = 0   message = message & rs("effective_date") & space(spaces) & Tab & Tab    message = message & rs("life_event") & chr(10)   rs.movenext  wend  rs.close    Mailer.BodyText = message  if masterGroup(2,i) <> "" and NoRecord = False and (not trim(masterGroup(48,i))="") then   if not (Mailer.SendMail) then    'Main = DTSTaskExecResult_Failure    'msgbox "Mail failure. Check mail host server name and tcp/ip connection...<br>"    'msgbox Mailer.Response   end if  end if  set Mailer = nothing next conn2.close conn.close set rs = nothing set conn = nothing set conn2 = nothing Main = DTSTaskExecResult_SuccessEnd Function