'*****************************************************************
'?????????????н?????????
'*****************************************************************
Dim SendTo?? Subject?? Body?? Attachment
'SendTo ="test@163.com;test1@163.com" '????????????????
SendTo ="test@163.com"
Subject ="???????????"
Body ="???????????"
Attachment =ReportLocation&"??????1.html"
'SendMail SendTo?? Subject?? Body?? Attachment
Function SendMail(SendTo?? Subject?? Body?? Attachment)
Dim ol??Mail
Set l=CreateObject("Outlook.Application")
Set Mail=ol.CreateItem(0)
Mail.to=SendTo
Mail.Subject=Subject
Mail.Body=Body
If (Attachment <> "") Then
Mail.Attachments.Add(Attachment)
End If
' Mail.display '??????
Mail.Send
ol.Quit
Set Mail = Nothing
Set l = Nothing
End Function