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

یک ماکروی بسیار جالب و مهم که می توانید در محیط برنامه نویسی 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

3069

#آموزش-Word

#آموزش-ورد

0 نظر

تازه ترین ها