Word баримт бичгийг a хэлбэрээр хавсаргахад хялбар байдаг PDF Outlook имэйл рүү файл оруулах. Гэсэн хэдий ч, хэрэв та олон Word баримт бичгийг хавсаргахыг хүсч байвал PDF файлуудыг имэйлээр илгээх боломжтой бол та энэ нийтлэлийг уншиж болно. Энд бид үүнийг багцаар нь авах аргыг харуулах болно.
Word баримт бичгийг хавсаргах PDF Outlook имэйлд файл оруулах бол та эхлээд Word баримт бичгийг нээгээд "Файл" цэс рүү орно уу. Дараа нь та "Хадгалах ба илгээх" таб руу шилжиж болно PDF”Товчлуурыг дараахь дэлгэцийн агшин шиг дарна уу.
Тиймээс Word баримт бичгийг хавсаргах нь маш энгийн байдаг PDF имэйл рүү. Гэхдээ хэрэв та олон Word баримт бичгийг хөрвүүлэх, хавсаргахыг хүсч байвал PDF файлуудыг шуудан руу илгээвэл дараахь аргыг ашиглах нь дээр. Энэ нь танд бөөнөөр хийх боломжийг олгоно.
Багц хөрвүүлэх, олон үгийн баримтыг хавсаргах PDF Имэйлийн файлууд
- Учир ньtart, хүссэн Windows баримт бичгүүдийг ижил Windows хавтсанд цуглуулна уу.
- Дараа нь Outlook програмыг ажиллуулна уу.
- Дараа нь дараах кодыг ашиглагдаагүй төсөл эсвэл модульд хуулж ав.
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) 'Windows-ийн тодорхой фолдерыг сонгоно уу objShell = CreateObject ("Shell.Application") Set objWindowsFolder.Bloes (objShell). 0, "Windows хавтас сонгоно уу:", 0, "") Хэрэв тийм биш бол objWindowsFolder юу ч биш юм. Дараа нь strWindowsFolder = objWindowsFolder.self.Path & "\" 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 String Set objFileSystem = CreateObject ("Scripting.FileSystemObject") objFolder = objFileSystem.GetFolder (strPath) for objFile In objFolder.Files strFileExtension = objFileSystem.GetExtensionName (strjFile). ) = "docx" Дараа нь objWordApp-г тохируулах = CreateObject ("Word.Application") Set objWordDocument = objWordApp.Documents.Open (objFile.Path) 'Баримтыг дараах байдлаар хөрвүүлэх pdf
strDocumentName = Left (objWordDocument.Name, (Len (objWordDocument.Name) - Len (strFileExtension)) - 1) strPDF = strPath & strDocumentName & ".pdf"objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
objWordDocument.Close False 'хавсралтыг хавсаргана уу pdf objMail.Attachments.Add str хаяг руу имэйлээр илгээхPDF
Ална strPDF
End If Next 'Бүх хавтас, дэд хавтасыг боловсруулна уу objFolder.SubFolders.Count> 0 Дараа нь objSubfolder бүрийн хувьд objFolder.SubFolders Хэрэв ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Дараа нь ProcessFolders (objSubfolder.Path) Төгсгөл Хэрэв Дараагийн Төгсгөл Хэрэв Төгсгөл Дэд
- Үүний дараа курсорыг эхний дэд програм руу шилжүүлнэ үү.
- Дараа нь энэ макрогоо даруй ажиллуулахын тулд “F5” товчийг дарна уу.
- Попап цонхны жижиг харилцах цонхноос Word програмын эх баримтуудыг хадгалах Windows хавтасыг сонгоно уу.
- Нэг дор шинэ имэйл үүсгэх бөгөөд үүнд хавсралтыг харах боломжтой болно PDF файлууд, дараах дэлгэцийн шигost.
Outlook-ийн асуудал
Outlook-ийн янз бүрийн асуудлууд таныг түгшээж байна уу? Жишээлбэл, Outlook нь "хариу өгөхгүй" байдалд байнга гацдаг, эсвэл Outlook PST файлд хандах боломжгүй болдог. Ерөнхийдөө та ирсэн имэйлийг засах хэрэгслийг ашиглаж үзээрэй, Сканнердах, PST асуудлыг засах. Гэсэн хэдий ч заримдаа бэрхшээлүүд нь угсарсан багаж хэрэгслийн хийж чадахаас давсан асуудал байж болох юм. Тиймээс гадны хэрэгслийг илүү хүчтэй байлгах хэрэгтэй DataNumen Outlook Repair.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. квадрат засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com
1