Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyimpan mesej e-mel sebagai format gambar (jpg / tiff) dalam pandangan?

Pernahkah anda cuba menyimpan mesej e-mel sebagai gambar seperti gambar jpg atau tiff dalam Outlook? Artikel ini akan menunjukkan cara untuk menyelesaikan masalah ini.

Simpan mesej e-mel sebagai format gambar dengan kod VBA


Simpan e-mel yang dipilih dengan mudah sebagai fail PDF individu dalam Outlook:

Dengan Simpan sebagai Fail utiliti Kutools untuk Outlook, anda boleh menyimpan banyak fail PDF individu yang terpilih di Outlook seperti yang ditunjukkan dalam tangkapan di bawah. Muat turun percubaan percuma tanpa had pada hari 45.

Kutools untuk Outlook: 100 + Alat Advanced Baru untuk Outlook.
Tab Pejabat: Dayakan Pengeditan dan Penyemakan Tab di Pejabat, Sama seperti Chrome, Firefox, IE 8 / 9 / 10.
Menu Klasik: Bawa Menu Lama dan Bar Alat Kembali ke Office 2007, 2010, 2013, 2016 dan 2019.

Simpan mesej e-mel sebagai format gambar dengan kod VBA

Sila lakukan seperti berikut untuk menyimpan mesej e-mel sebagai format gambar dalam Outlook.

1. Pilih e-mel yang anda akan simpan sebagai gambar, dan kemudian tekan Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik Memasukkan > UserForm. Lihat tangkapan skrin:

3. Buat a Penggunaform seperti gambar di bawah yang ditunjukkan.

4. Pilih jpg Pilihan butang, dan tukar namanya opbJPG di sebelah kiri Hartanah pane.

5. Ulangi langkah di atas 4 untuk menamakan semula butang pilihan lain sebagai opbTIFF. Dan tukar nama OK butang arahan dan Batal butang arahan sebagai cdbOk dan cdbCancel secara berasingan.

Nota: Jika Hartanah pane tidak dipaparkan di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik F4 kunci untuk membuka anak tetingkap.

6. Klik dua kali pada mana-mana ruang kosong pada bentuk pengguna untuk membuka Kod tingkap. Ganti semua kod dengan skrip VBA berikut. Kemudian tutup tetingkap Kod.

Kod VBA 1: Simpan mesej e-mel sebagai gambar

Option Explicit
'Update by Extendoffice 2018/3/5
Public xRet As Boolean
Private Sub cdbCancel_Click()
  xRet = False
  FrmPicType.Hide
End Sub
Private Sub cdbOk_Click()
  xRet = True
  FrmPicType.Hide
End Sub

7. Pilih UserForm1 dan menukar namanya FrmPicType dalam Hartanah pane seperti tangkapan di bawah ditunjukkan.

8. klik Memasukkan > Modul, dan kemudian salin kod VBA di bawah ke dalam tetingkap Modul.

Kod VBA 2: Simpan mesej e-mel sebagai gambar

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Update by Extendoffice 2018/3/5
Sub ExportEmailAsImage()
Dim xMail As Outlook.MailItem
Dim xFileName, xFilePath, xWdDocPath As String
Dim xPPTApp As PowerPoint.Application
Dim xPresentation As PowerPoint.Presentation
Dim xPPTShape As PowerPoint.Shape
Dim xPicType As String
Dim xFileFormat As PpSaveAsFileType
On Error Resume Next
FrmPicType.Show
If FrmPicType.xRet Then
  If FrmPicType.opbJPG.Value = True Then
    xPicType = ".jpg"
    xFileFormat = ppSaveAsJPG
  ElseIf FrmPicType.opbTIFF.Value = True Then
    xPicType = ".tiff"
    xFileFormat = ppSaveAsTIF
  End If
Else
  Exit Sub
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFilePath = xFolderItem.Path & "\"
Else
    xFilePath = ""
    Exit Sub
End If
'ShellExecute 0, "Open", "POWERPNT.exe", "", "", 0
Set xPPTApp = New PowerPoint.Application
xPPTApp.Height = 0
xPPTApp.Width = 0
xPPTApp.WindowState = ppWindowMinimized
xPPTApp.Visible = msoFalse
For Each xMail In Outlook.Application.ActiveExplorer.Selection
    xFileName = Replace(xMail.Subject, "/", " ")
    xFileName = Replace(xFileName, "\", " ")
    xFileName = Replace(xFileName, ":", "")
    xFileName = Replace(xFileName, "?", " ")
    xFileName = Replace(xFileName, Chr(34), " ")
    xWdDocPath = Environ("Temp") & "\" & xFileName & ".doc"
    xMail.SaveAs xWdDocPath, olDoc
    
    Set xPresentation = xPPTApp.Presentations.Add
    xPresentation.Application.WindowState = ppWindowMinimized
    xPresentation.Application.Visible = msoFalse
    With xPresentation
        .PageSetup.SlideHeight = 900 '792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
    xPPTApp.WindowState = ppWindowMinimized
    With xPresentation.Slides(1)
         .Application.Visible = msoFalse
         Set xPPTShape = .Shapes.AddOLEObject(0, 0, 612, 900, , xWdDocPath)
         xPresentation.SaveAs xFilePath & xFileName & xPicType, xFileFormat, msoTrue
    End With
    xPresentation.Close
Next
xPPTApp.Quit
MsgBox "Mails has been successfully saved as picture", vbInformation + vbOKOnly
End Sub

9. klik Alatan > Rujukan, periksa Perpustakaan objek Microsoft PowerPoint kotak dan kemudian klik OK butang. Lihat tangkapan skrin:

10. Tekan butang F5 kunci untuk menjalankan kod. Kemudian UserForm1 kotak dialog muncul, sila pilih jenis gambar dan klik OK butang. Lihat tangkapan skrin:

11. Di dalam Semak imbas Untuk Folder kotak dialog, nyatakan folder untuk menyimpan gambar, dan kemudian klik OK butang.

12. Akhirnya, a Microsoft Outlook kotak dialog akan dipaparkan untuk memberitahu anda tentang penyelesaian simpanan tersebut. Sila klik OK butang.

Kini e-mel yang dipilih ditukar kepada gambar jpg atau tiff dan disimpan ke dalam folder yang ditentukan dengan jayanya.


Related Articles:



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.