একটি হিসাবে ওয়ার্ড নথি সংযুক্ত করা সহজ PDF একটি আউটলুক ইমেল ফাইল। তবুও, আপনি যদি একাধিক ওয়ার্ড ডকুমেন্ট হিসাবে সংযুক্ত করতে চান PDF একটি ইমেল ফাইল, আপনি এই নিবন্ধটি পড়তে পারেন। এখানে আমরা আপনাকে ব্যাচ এটি পেতে একটি পদ্ধতি দেখাব।
হিসাবে একটি ওয়ার্ড নথি সংযুক্ত করতে PDF Outlook ইমেইলে ফাইল পাঠাতে, আপনি প্রথমে Word ডকুমেন্টটি খুলে “File” মেনুতে যেতে পারেন। তারপর, আপনি “Save & Send” ট্যাবে যেতে পারেন, যেখানে নিচের স্ক্রিনশটের মতো একটি “Send as PDF” বাটন রয়েছে।
সুতরাং, এটি একটি ওয়ার্ড নথি হিসাবে সংযুক্ত করা বেশ সহজ PDF একটি ইমেল। তবে, আপনি যদি রূপান্তর করতে চান এবং একাধিক ওয়ার্ড ডকুমেন্ট হিসাবে সংযুক্ত করতে চান PDF একটি মেল ফাইল, আপনি নিম্নলিখিত উপায় ব্যবহার করে ভাল। এটি আপনাকে প্রচুর পরিমাণে এটি সম্পাদন করতে দেয়।
ব্যাচ রূপান্তর এবং একাধিক ওয়ার্ড ডকুমেন্ট হিসাবে সংযুক্ত করুন PDF একটি ইমেল ফাইল
- শুরুতে, আপনার প্রয়োজনীয় ওয়ার্ড ডকুমেন্টগুলো একই উইন্ডোজ ফোল্ডারে জড়ো করুন।
- তারপরে, আউটলুক প্রোগ্রাম চালু করুন।
- পরবর্তী, একটি অব্যবহৃত প্রকল্প বা মডিউলটিতে নিম্নলিখিত কোডটি অনুলিপি করুন।
Dim objMail As Outlook.MailItem
Sub BatchAttachMultipleWordDocumentsAsPDFToEmail()
Dim objShell As Object
Dim objWindowsFolder As Object
Dim strWindowsFolder As String
Set objMail = Outlook.Application.CreateItem(olMailItem)
'Select the specific Windows folder
Set objShell = CreateObject("Shell.Application")
Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")
If Not objWindowsFolder Is Nothing Then
strWindowsFolder = objWindowsFolder.self.Path & "\"
Call ProcessFolders(strWindowsFolder)
objMail.Display
End If
End Sub
Sub ProcessFolders(strPath As String)
Dim objFileSystem As Object
Dim objFolder As Object
Dim objFile As Object
Dim objWordApp As Word.Application
Dim objWordDocument As Word.Document
Dim strDocumentName As String
Dim strPDF As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.GetFolder(strPath)
For Each objFile In objFolder.Files
strFileExtension = objFileSystem.GetExtensionName(objFile)
If LCase(strFileExtension) = "doc" Or LCase(strFileExtension) = "docx" Then
Set objWordApp = CreateObject("Word.Application")
Set objWordDocument = objWordApp.Documents.Open(objFile.Path)
'Convert document to pdf
strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1)
strPDF = strPath & strDocumentName & ".pdf"
objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
objWordDocument.Close False
'Attach the pdf to email
objMail.Attachments.Add strPDF
Kill strPDF
End If
Next
'Process all folders and subfolders
If objFolder.SubFolders.Count > 0 Then
For Each objSubfolder In objFolder.SubFolders
If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
ProcessFolders (objSubfolder.Path)
End If
Next
End If
End Sub
- এর পরে, কার্সারটিকে প্রথম সাবরোটিনে সরান।
- পরবর্তী সময়ে, এখনই এই ম্যাক্রোটি চালানোর জন্য "F5" টিপুন।
- পপআপ ছোট ডায়লগ বাক্সে, উইন্ডোজ ফোল্ডারটি নির্বাচন করুন যেখানে উত্স ওয়ার্ড নথি সংরক্ষণ করা আছে।
- একবারে, একটি নতুন ইমেল তৈরি করা হবে, যাতে আপনি সংযুক্ত দেখতে পারেন PDF ফাইলগুলো, যেমন নিচের স্ক্রিনশটগুলো।
আউটলুক সমস্যা দ্বারা জর্জরিত
আপনি কি বিবিধ আউটলুক সমস্যা দ্বারা বিরক্ত? উদাহরণস্বরূপ, আউটলুক ঘন ঘন "প্রতিক্রিয়া না জানা" অবস্থায় আটকে থাকে বা আউটলুক পিএসটি ফাইল অ্যাক্সেসযোগ্য হয়ে যায় ইত্যাদি etc. সাধারণভাবে, আপনি প্রথমে ইনবক্স মেরামতের সরঞ্জামটি চেষ্টা করতে পারেন, স্ক্যানপস্ট, পিএসটি সমস্যাগুলি ঠিক করতে। তবুও, অনেক সময় সমস্যাগুলি ইনবিল্ট টুল যা করতে পারে তার বাইরেও হতে পারে। অতএব, আপনি আশেপাশে আরও বেশি শক্তিশালী বাহ্যিক উপযোগিতা রাখতে চান DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় বর্গফুট মেরামত এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com