Carane Batch Ngonversi & Pasang Multiple Word Documents minangka PDF File menyang Email Outlook

Gampang masang dokumen Word minangka a PDF file menyang email Outlook. Nanging, yen sampeyan pengin masang sawetara dokumen Word minangka PDF file menyang email, sampeyan bisa maca artikel iki. Ing kene kita bakal nuduhake sampeyan cara kanggo entuk batch.

Kanggo masang dokumen Word minangka PDF file menyang email Outlook, sampeyan bisa mbukak dokumen Word lan pindhah menyang menu "Berkas". Banjur, sampeyan bisa ngalih menyang tab "Simpen & Kirim", sing ana "Kirim minangka PDF”, kaya gambar ing ngisor iki.

Mangkono, cukup prasaja kanggo masang dokumen Word minangka PDF menyang email. Nanging, yen sampeyan pengin ngowahi lan masang sawetara dokumen Word minangka PDF file menyang mail, sampeyan luwih apik nggunakake cara ing ngisor iki. Bisa ngidini sampeyan ngrampungake kanthi akeh.

Batch Ngonversi & Pasang Multiple Word Documents minangka PDF File menyang Email

1. Kanggo minangkatart, klumpukne dokumen Word sing pengin ing folder Windows padha.
2. Banjur, miwiti program Outlook.
3. Sabanjure, salin kode ing ngisor iki menyang proyek utawa modul sing ora digunakake.

Dim objMail Minangka Outlook.MailItem Sub BatchLampirakeMultipleWordDocumentsAsPDFToEmail() Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String Set objMail = Outlook.Application.CreateItem(olMailItem) 'Pilih folder Windows tartamtu Setel objShell = CreateObject("Shell.ApplicationFoheset objbWindows("Shelder.ApplicationFohe") Setel objbWindowsFor 0, "Pilih folder Windows:", 0, "") Yen Ora objWindowsFolder Is Nothing Banjur strWindowsFolder = objWindowsFolder.self.Path & "\" Call ProcessFolders(strWindowsFolder) objMail.Tampilake 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 Minangka String Set objFileSystem = CreateObject("Scripting.FileSystemObject") Setel objFolder = objFileSystem.GetFolder(strPath) Kanggo Saben objFile Ing objFolder.Files strFileExtension = objFileSystem.GetFolder(strPath) doc" Utawa LCase(strFileExtension ) = "docx" Banjur Setel objWordApp = CreateObject("Word.Application") Setel objWordDocument = objWordApp.Documents.Open(objFile.Path) 'Ngonversi dokumen menyang pdf
           strDocumentName = Kiri(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1) strPDF = strPath & strDocumentName & ".pdf" objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Tutup Palsu 'Lampirake pdf kanggo email objMail.Attachments.Add strPDF

           Mateni strPDF
        End If Next 'Proses kabeh folder lan subfolder Yen objFolder.SubFolders.Count > 0 Banjur Kanggo Saben objSubfolder Ing objFolder.SubFolders Yen ((objSubfolder.Attributes Lan 2) = 0) Lan ((objSubfolder.Attributes Lan 4) = ProcessFolders (objSubfolder.Path) End Yen Sabanjure End Yen End Sub

4. Sawise iku, pindhah kursor menyang subrutin pisanan.
5. Sabanjure, pencet "F5" kanggo mbukak makro iki langsung.
6. Ing kothak dialog cilik popup, pilih folder Windows ing ngendi sumber dokumen Word disimpen.
7. Sanalika, email anyar bakal digawe, ing ngendi sampeyan bisa ndeleng lampiran kasebut PDF file, kaya layar ing ngisor ikiost.

Plagued dening Outlook Troubles

Apa sampeyan keganggu karo macem-macem masalah Outlook? Kayata, Outlook kerep macet ing "ora nanggapi" negara utawa Outlook PST file dadi ora bisa diakses, etc. Umumé, sampeyan bisa pisanan nyoba alat repair kothak mlebu, scanpst, kanggo ndandani masalah PST. Nanging, kadhangkala, masalah bisa uga ngluwihi apa sing bisa ditindakake alat sing dibangun. Mulane, luwih becik sampeyan nyimpen sarana eksternal sing luwih kuat ing sacedhake, kayata DataNumen Outlook Repair.

Pambuka Pengarang:

Shirley Zhang punika pakar Recovery data ing DataNumen, Inc., sing dadi pimpinan donya ing teknologi pemulihan data, kalebu ndandani sql lan produk software repair Outlook. Kanggo informasi luwih lengkap riko www.datanumensitus