ÓÉÓÚ¹«Ë¾KMSϵͳ²»ÄÜ·¢²¼½ØÍ¼£¬ËùÒÔÏêϸÎĵµÇë²Î¿¼¹«Ë¾ÂÛ̳Îĵµ
¶¨Ê±×Ô¶¯·¢ËÍ´ø¸½¼þµÄµç×ÓÓʼþ.pdf¡£
ÎÒÃÇÈÕ³£µÄ¹¤×÷ÖÐÓ¦¸Ã»áÓÐÕâÑùµÄÐèÇó£ºÁìµ¼ÐèÒªÁ˽âÿÌìµÄÔËÓªÏúÊÛÊý¾Ý£¬ITÓ¦ÓøºÔðÈËÐèÒªÁ˽âÿÌì·þÎñÆ÷µÄÔËÐб¨¸æ»òÕßÈÕÖ¾¼Ç¼¡£Ò»Ð©×¨ÒµµÄÈí¼þ×ÔÉí´øÓÐÓʼþ·¢Ëͱ¨¸æµÄ¹¦ÄÜ£¬È»¶ø»¹ÓкܶàÈÕ³£µÄ¹¤×÷ºÍÓ¦ÓÃûÓÐÈí¼þÄܹ»Ö§³Ö×Ô¶¯·¢ËÍÓʼþµÄ¹¦ÄÜ¡£ÎÒÃǸÃÔõô°ìÄØ£¿¾¹ý¶àÖÖ·½·¨µÄ²âÊԱȽϣ¬ÖÕÓÚ×ܽá³öÒ»ÖÖ·½±ãʵÓ㬶øÇÒÃâ·ÑµÄ·½·¨£º
ÀûÓÃwindows×Ô´øµÄ¼Æ»®ÈÎÎñÒÔ¼°Outlook¿Í»§¶Ë£¬ÅäºÏVBS½Å±¾ÎļþʵÏÖ¶¨Ê±×Ô¶¯·¢ËÍ´ø¸½¼þµÄÓʼþ
ǰÌ᣺ÒѾÅäÖùýoutlookÕË»§£¬²¢¿ÉÒÔÕý³£ÊÕ·¢Óʼþ¡££¨¾ßÌå·½·¨²»×ö½éÉÜ£©
ÏÂÃæ½éÉܽű¾µÄÅäÖúͼƻ®ÈÎÎñµÄÅäÖãº
Ò»¡¢ÅäÖýű¾´úÂë
ÎÒÃÇÊ×ÏÈÔÚÎı¾ÎļþÖбàдVBS½Å±¾´úÂ룬Ȼºó½«ÆäÁí´æÎªÒ»¸öÃûΪemail.vbsµÄÎļþ
´úÂëÈçÏ£º
' ×¢Ò⣺ÒÔµ¥ÒýºÅ'¿ªÍ·µÄÐÐΪעÊÍ
' fdtΪ½ñÈÕÈÕÆÚµÄ×Ö·û´®£¬±ÈÈç '2012-3-1'£¬¿ÉÓÃÓÚ¸½¼þÃû×ÖÀïºÍÓʼþ±êÌâÀï
' receiptions ΪÊÕ¼þÈËÁÐ±í£¬¶à¸öÊÕ¼þÈËÖ®¼äÓ÷ֺŸô¿ª
' Subject ΪÓʼþ±êÌâ
' Body ΪÓʼþÕýÎÄ
' Attachments Ϊ¸½¼þÁÐ±í£¬Ã¿¸ö¸½¼þ¶¼Ð踽´øÂ·¾¶²¢ÓöººÅ¸ô¿ª¡£
' ÒÔÏ´úÂë¿É×Ô¶¨ÒåÐÞ¸Ä
fdt = FormatDateTime(Date)
receiptions = "username@domain.com"
Subject = "±¨¸æ " & fdt
Body = "¸½¼þÊǽñÈÕ±¨¸æ£¬Çë²éÊÕ¡£"
Attachments = Array("E:mail testXXX.xlsx","E:mail
testXXX.docx")
' ÒÔÏ´úÂëÎÞÐèÐÞ¸Ä
Dim xOutLook
Dim xMail
On Error Resume Next
Set xOutLook = GetObject(,
"Outlook.Application")
If xOutLook Is Nothing Then
Set xOutLook = CreateObject("Outlook.Application")
End If
Set xMail = xOutLook.CreateItem(olMailItem)
With xMail
.Display
Dim signature
signature = .HTMLBody
.To = receiptions
.Subject = Subject
.HTMLBody = Body
.Importance =
olImportanceHigh
Dim xDoc
Set xDoc = xMail.Application.ActiveInspector.WordEditor
If IsArray(Attachments) Then
Dim attachment
For Each attachment In Attachments
.Attachments.Add attachment
Next
End If
.HTMLBody = .HTMLBody & signature
.Send
End With