ÓÉÓÚ¹«Ë¾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