Outlook'ta e-postayı pdf dosyası olarak nasıl kaydedebilirim?

Microsoft Outlook 2010 ve 2007 ile çalışıyorsanız, Outlook'ta e-postayı pdf biçimine dönüştürmek için yerleşik bir uygulama olmadığını göreceksiniz. E-postayı bazı ilgili eklentiler veya VBA kodu ile pdf dosyasına dönüştürmeniz gerekir. Aşağıdaki makale ile e-postayı Outlook'ta pdf dosyası olarak kolayca kaydedeceksiniz.

E-postayı Outlook'ta VBA kodu ile pdf dosyası olarak kaydedin

Toplu Kaydetme ile birden çok e-postayı pdf dosyası veya diğer dosya biçimleri olarak toplu kaydedin

E-postayı Outlook'ta VBA kodu ile pdf dosyası olarak kaydedin

1. Öncelikle PDF olarak kaydetmek istediğiniz e-postayı seçmelisiniz.

2. Basın Alt + F11 başlatmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tık Ekle > modül, ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

E-postayı PDF dosyası olarak kaydetmenin VBA kodu:

Sub SaveAsPDFfile()
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub

not: Bu VBA kodu, Outlook 2007 ve 2010'da başarıyla test edilmiştir

4. tık kodu çalıştırmak için.

5. Bir Dosya Kaydet kod çalışırken iletişim kutusu açılır. Dosyayı kaydetmek için bir yol seçin, adlandırın ve son olarak İndirim düğmesine basın.

6. Kodun çalışması bittiğinde, e-posta başarıyla pdf dosyasına dönüştürülmüştür.

Toplu Kaydetme ile birden çok e-postayı pdf dosyası veya diğer dosya biçimleri olarak toplu kaydedin

İle Kutools for Outlook kurulu, kullanabilirsiniz Bulk Save seçilen e-postaları PDF dosyalarına / Excel dosyalarına / CSV dosyalarına veya diğer dosya formatlarına hızlı bir şekilde kaydetmek veya dışa aktarmak için yardımcı program.

1. Bir e-posta klasöründe, PDF olarak kaydetmek istediğiniz mesajları seçin, Kutools > Bulk Save.

2. içinde Bulk Save iletişim kutusu, yeni dosyaları yerleştirmek için bir yol seçin, kontrol edin PDF formatve belirtebilirsiniz Save content gerek duyduğunuz kadar.

3. tık Ok. Ardından seçilen e-postalar ayrı ayrı PDF dosyaları olarak kaydedildi.

  E-postaları birden çok dosya biçimine toplu kaydedin

---

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler Pro: Toplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

Devamını Oku       Bedava indir      Satın alma