Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas salvestada e-posti sõnum pildivormingus (jpg / tiff) väljapoole?

Kas olete kunagi püüdnud salvestada e-kirja pildina nagu jpg või tiff pilt Outlookis? See artikkel näitab teile meetodit selle probleemi lahendamiseks.

Salvestage meiliaadress pildivormingus VBA koodiga


Outlooki üksikute PDF-failide abil saate hõlpsalt salvestada valitud meilid:

Koos Salvesta failina kasulikkus Outlooki Kutools, saate hõlpsalt salvestada Outlooki üksikute PDF-failide hulgast valitud e-kirju, nagu allpool on kujutatud ekraanipilt. Laadige alla tasuta prooviversioon ilma piiranguteta 45 päeva jooksul.

Outlooki Kutools: 100 + uued täpsemad tööriistad Outlooki jaoks.
Office'i vahekaart: Lubage Office'i vahelehtede redigeerimine ja sirvimine, Just nagu Chrome, Firefox, IE 8 / 9 / 10.
Klassikaline menüü: Viige vanad menüüd ja tööriistaribad tagasi Office 2007, 2010, 2013, 2016 ja 2019.

Salvestage meiliaadress pildivormingus VBA koodiga

E-kirja salvestamiseks Outlooki pildiformaadina tehke järgmist.

1. Valige e-post, mida salvestate pildina ja seejärel vajutage muu + F11 võtmed üheaegselt, et avada Microsoft Visual Basic rakenduste jaoks aken.

2. Aastal Microsoft Visual Basic rakenduste jaoks aken, klõpsake Sisesta > UserForm. Vaata pilti:

3. Loo Kasutajaform nagu allpool on kujutatud ekraanipildi.

4. Valige jpg Valik nuppu ja muutke oma nimeks opbJPG vasakul omadused pane.

5. Korda ülaltoodud sammu 4, et nimetada teiste valikute nuppu kui opbTIFF. Ja nimetage ümber OK käsklusnupp ja tühistama käsknupp kui cdbOk ja cdbCancel eraldi.

märkused: Kui omadused pane ei näita Microsoft Visual Basic rakenduste jaoks aken, klõpsake palun F4 paneeli avamiseks võti.

6. Ava avamiseks topeltklõps mis tahes tühja ruumil kasutajaformis kood aken. Asenda kogu kood järgmise VBA-skriptiga. Ja siis sulgege koodi aken.

VBA kood 1: salvesta e-kirjad pildina

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. Valige UserForm1 ja muutke oma nimeks FrmPicType aasta omadused nagu allpool on kujutatud ekraanipildi.

8. klõps Sisesta > moodulid, ja kopeerige allpool VBA kood aknas Moodul.

VBA kood 2: salvesta e-kirjad pildina

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. klõps töövahendid > viited, kontrolli Microsoft PowerPointi objektide raamatukogu kast ja seejärel klõpsake nuppu OK nuppu. Vaata pilti:

10. Vajutage nuppu F5 koodi käivitamiseks klahv. Siis UserForm1 Avaneb dialoogiboks, palun vali pilditüüp ja klõpsake nuppu OK nuppu. Vaata pilti:

11. Aastal Kausta otsimine dialoogiboksis määrake pilt salvestamiseks kaust ja seejärel klõpsake nuppu OK nuppu.

12. Lõpuks, a Microsoft Outlook Kuvatakse dialoogiboks, mis selgitab säästmise lõpetamist. Palun klõpsake OK nuppu.

Nüüd valitakse valitud e-kirjad jpg- või tiff-pildina ja salvestatakse edukalt määratud kausta.


Seotud artiklid:



Outlooki Kutools

Rohkem kui 100 täiustatud funktsioonid Outlooki 2010, 2013, 2016, 2019 ja 365 jaoks

ekraanipilt kutools jaoks banneri 201812 jaoks väikeseks

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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.