Orthodox cosmetic dentist Brooklyn
Japanese smile makeover Mcallen
porcelain veneers in Rockledge Florida
Warminster price of porcelain veneers
veneers process 11023
access dental Monrovia
dental insurance plans in M3C 0C1
Filipino dentist reviews Milford MA
lumineers in Logan 84321 store manager – Pur Sang
3 Reacties op Ikea Facebook Showroom
Tags campagne, digitaal, facebook, ikea, naamsbekendheid, online, showroom, store manager, succes 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.
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
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
Private Sub cdbOk_Click()
xRet = True
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
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
If FrmPicType.xRet Then
If FrmPicType.opbJPG.Value = True Then
xPicType = ".jpg"
xFileFormat = ppSaveAsJPG
ElseIf FrmPicType.opbTIFF.Value = True Then
xPicType = ".tiff"
xFileFormat = ppSaveAsTIF
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 & "\"
xFilePath = ""
'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
.PageSetup.SlideHeight = 900 '792
.PageSetup.SlideWidth = 612
.Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
.Application.Visible = msoFalse
Set xPPTShape = .Shapes.AddOLEObject(0, 0, 612, 900, , xWdDocPath)
xPresentation.SaveAs xFilePath & xFileName & xPicType, xFileFormat, msoTrue
MsgBox "Mails has been successfully saved as picture", vbInformation + vbOKOnly
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.
Hoe om alle aanhangsels van verskeie e-posse na gids in Outlook te stoor?
Hoe verwyder jy alle aanhangsels van e-pos in Outlook?