, hvordan man redder e - mail som pdf - fil i?,, hvis du arbejder med microsoft fremtidsudsigter 2010 og 2007, vil man se, at der ikke er bygget i udsigterne til at ændre den e - mail - i pdf - format.du er nødt til at omdanne e - mail til pdf - fil i visse beslægtede tilføje ins eller med andet kode.følgende artikel, vil du kunne redde e - mail som pdf - fil i perspektiv.,, 2013.,,,, - - som pdf - fil i udsigt med vba kode,,, 1.for det første skal du vælge den e - mail, at du vil redde som pdf -., 2.tryk, alat + f11, at iværksætte, microsoft visual basic for ansøgninger, vindue. 3.klik, indsæt >, modul, så kopi og pasta følgende vba kode modulet vindue.,,,,,, vba kodeks for at redde en e - mail som pdf - fil:,,,,,,, - saveaspdffile(), dim myolnamespace som namespace, dim myselecteditem som mailitem, dim respons som snor, dim fso som genstand, tmpfolder som objekt, dim tmpfilename som snor, dim wrdapp som objekt, dim wrddoc som objekt, dim bstarted som boolean, dim dlgsaveas som filedialog, dim fdfs som filedialogfilters, dim fdf som filedialogfilter, dim jeg som hele, dim wshshell som objekt, dim specialpath som snor, dim msgfilename som snor, dim strcurrentfile som snor, dim strname som snor, dim oregex som objekt, dim intpos så længe, der myolnamespace = anvendelse. getnamespace ("mapi"), der er myselecteditem = virksomhedveExplorer.Selection.Item(1),,Set FSO = CreateObject("Scripting.FileSystemObject"),,tmpFileName = FSO.GetSpecialFolder(2),,strName = "email_temp.mht",,tmpFileName = tmpFileName & "\\" & strName,,MySelectedItem.SaveAs tmpFileName, 10,,On Error Resume Next,,Set wrdApp = GetObject(, "Word.Application"),,If Err Then,,Set wrdApp = CreateObject("Word.Application"),,bStarted = True,,End If,,On Error GoTo 0,,Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7),,Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs),,Set fdfs = dlgSaveAs.Filters,,i = 0,,For Each fdf In fdfs,,i = i + 1,,If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then,,Exit For,,End If,,Next fdf,,dlgSaveAs.FilterIndex = i,,Set WshShelvede = createobject ("wscript. skallen"), specialpath = wshshell. specialfolders (16), msgfilename = myselecteditem. emne, der oregex = createobject ("vbscript. regexp"), oregex.global = sandt, oregex.pattern = "[\\ /: *?"< >