ماکروی ارسال فایل ورد توسط ایمیل

یک ماکروی بسیار جالب و مهم که می توانید در محیط برنامه نویسی Word از آن استفاده کنید. این ماکرو در زمان اجرا پنجره ارسال ایمیل نرم افزار Outlook را باز کرده و یک ایمیل که فایل جاری Word به صورت پیوست در آن وجود دارد را به یک آدرس ارسال می کند.


 

 

Sub SendDocumentAsAttachment()
               Dim bStarted As Boolean
               Dim oOutlookApp As Outlook.Application
               Dim oItem As Outlook.MailItem
               On Error Resume Next
               If Len(ActiveDocument.Path) = 0 Then
               ActiveDocument.Save
               End If
               Set oOutlookApp = GetObject(, "Outlook.Application")
               If Err <> 0 Then
               Set oOutlookApp = CreateObject("Outlook.Application")
               bStarted = True
               End If
               Set oItem = oOutlookApp.CreateItem(olMailItem)
               With oItem
               .To = " someone@somewhere.com"
               .Subject = "New subject"
               .Body = "See attached document"
               .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue
               .Display
               End With
               Set oItem = Nothing
               Set oOutlookApp = Nothing
End Sub

اگر در برنامه نویسی Word کمی حوصله و وقت دارید می توانید این ماکرو را با کمی دستکاری به یک Add in تبدیل کرده و در اختیار عموم قرار دهید ! توجه کنید که برای کارکردن ماکرو باید کتابخانه Outlook را در محیط Word فعال کنید. (در VBA از منوی Tools گزینه Preferences را انتخاب کرده و گزینه Microsoft Outlook 14 یا 12  را انتخاب کنید)

نویسنده : وحید فرزام
تاریخ انتشار : 1392-12-09 03:30:00
1782

0 نظر

user


تازه ترین ها