Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om e-pos te red as prentformaat (jpg / tiff) in Outlook?

Het jy al ooit probeer om 'n e-pos te stoor as 'n foto soos jpg of tiff foto in Outlook? Hierdie artikel sal jou 'n metode wys om hierdie probleem op te los.

Stoor e-pos boodskap as prentformaat met VBA-kode


Maklik geselekteerde e-posse as individuele PDF-lêers in Outlook stoor:

Met die Stoor as lêer nut van Kutools for Outlook, kan jy maklik verskeie geselekteerde emailsas individuele PDF-lêers in Outlook stoor soos hieronder aangedui. Laai die gratis proeflopie af sonder beperking in 45 dae.

Kutools for Outlook: 100 + Nuwe Gevorderde Tools vir Outlook.
Office Tab: Aktiveer Tabbedigering en blaai in Office, Net soos Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Bring Ou Spyskaarte en Toolbars terug na Office 2007, 2010, 2013, 2016 en 2019.

Stoor e-pos boodskap as prentformaat met VBA-kode

Gaan soos volg te werk om 'n e-posboodskap as prentformaat in Outlook te stoor.

1. Kies 'n e-pos wat jy sal stoor as prent, en druk dan die alt + F11 sleutels gelyktydig om die Microsoft Visual Basic vir toepassings venster.

2. In die Microsoft Visual Basic vir toepassings venster, kliek asseblief Plaas > UserForm. Sien skermkiekie:

3. Skep 'n Userform soos hieronder aangedui.

4. Kies die jpg opsie knoppie, en verander sy naam na opbJPG in die linkerkant Eiendomme paneel.

5. Herhaal bogenoemde stap 4 om die ander opsieknoppie te hernoem as opbTIFF. En hernoem die OK bevel knoppie en die Kanselleer opdrag knoppie as cdbOk en cdbCancel afsonderlik.

nota: As die Eiendomme venster verskyn nie in die Microsoft Visual Basic vir toepassings venster, kliek asseblief op die F4 sleutel om die paneel uit te bring.

6. Dubbelklik op 'n leë spasie op die gebruikersvorm om die kode venster. Vervang alle kode met die volgende VBA-skrif. En dan maak die Kode venster toe.

VBA-kode 1: Stoor e-pos boodskap as foto

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. Kies die UserForm1 en verander sy naam na FrmPicType in die Eiendomme paneel soos hieronder vertoon kiekie.

8. Klik Plaas > module, en dan die onderstaande VBA-kode in die Module-venster kopieer.

VBA-kode 2: Stoor e-pos boodskap as foto

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 Gereedskap > Verwysings, kyk die Microsoft PowerPoint Object Library boks en klik dan op die OK knoppie. Sien skermkiekie:

10. Druk die F5 sleutel om die kode uit te voer. Dan die UserForm1 dialoog verskyn, kies asseblief 'n prentipe en klik die OK knoppie. Sien skermkiekie:

11. In die Blaai vir gids dialoog, spesifiseer 'n gids om die prent te stoor en klik dan op die OK knoppie.

12. Ten slotte, a Microsoft Outlook dialoogkassie sal vertoon om jou te vertel oor die voltooiing van die besparing. Klik asseblief op die OK knoppie.

Nou word die gekose e-posse omgeskakel na 'n jpg- of tiff-prent en suksesvol in 'n gespesifiseerde gids gestoor.


Verwante artikels:



Kutools for Outlook

Meer as 100 Gevorderde funksies vir Outlook 2010, 2013, 2016, 2019 en 365

skermskut kutools vir uitsig klein vir banner 201812

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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.