, e - mail te redden in de vooruitzichten van de pdf - bestanden?,, als je dat Microsoft de vooruitzichten voor 2010 en 2007 werk, vind je niet in de vooruitzichten, een wijziging van de e - mail in pdf - formaat.Je moet een e - mail van de VBA - of PDF - bestanden met de code.In de volgende artikelen in de e - mail te redden, zal je het gemakkelijk in de vooruitzichten van pdf - bestanden.,,,,,, in 2013, de e - mail te redden in de vooruitzichten van de VBA pdf - bestanden,,, 1.In de eerste plaats moet je de e - mail te kiezen, en je wil redden in pdf - formaat.,, 2.Volgens de Alt+F11, invoering van Microsoft voor visuele toepassing, het raam,, 3.- steek, >, module, en een kopie van de VBA code in de module volgende raam.,,,,,, e - mail als pdf - bestanden te redden van de VBA code:,,,,, - saveaspdffile (), donkere myolnamespace namespace, donkere myselecteditem als mailitem, donkere reactie, string. Het voorwerp van de FSO, tmpfolder als doel, tmpfilename zo somber string, het programma voor wrddoc, dom, dom, als een object, bstarted booleaanse, donkere dlgsaveas, als het dossier, de agent is filedialogfilters, donkere, donkere, donkere, ik geef als filedialogfilter, de getallen zijn somber, wshshell voor. Specialpath object, als een touw, touw, de msgfilename strcurrentfile als de schemering, touw, touw, niet met de schemering, oregex als doel, intpos, donkere, myolnamespace = toepassing, set. Getnamespace ("bloemen"), myselecteditem = activiteiten,VeExplorer.Selection.Item (1), en die FSO = createobject ("Scripting.FileSystemObject"), tmpFileName = FSO.GetSpecialFolder (2), en strName = "email_temp.mht", tmpFileName = tmpFileName & "" & strName, tmpFileName, MySelectedItem.SaveAs, 10, de fouten, die wrdApp weer het volgende, getobject ("= Word.Application"), als het moet, en die wrdApp = createobject ("Word.Application"), waar bStarted = einde als,,,, de fouten naar 0, die wrdDoc = wrdApp.Documents.Open (FileName:=tmpFileName, Visible:=False, Format:=7), die dlgSaveAs = wrdApp.FileDialog (msoFileDialogSaveAs), die fdfs = dlgSaveAs.Filters,,, i = 0, voor elk FDF in fdfs,, i = I + 1, 24 (1, fdf.Extensions, als, "-", vbTextCompare)% GT% 0 dan,, uitgang, als de volgende FDF (,,,,,, dlgSaveAs.FilterIndex = I, die WshSDe hel = createobject ("wscript. Shell"), die door de WSHShell. is, specialpath = specialfolders (16), en msgfilename = myselecteditem. Betreft, oregex = createobject (vb. Regelmatig uitdrukking "), oregex.global = echt, oregex.pattern =" [\\/:*? "< >