Ako pripojiť pracovný hárok programu Excel ako PDF Príloha v e-maile programu Outlook

Ak chcete rýchlo previesť pracovný hárok programu Excel na a PDF súbor a potom pripojte PDF Ak chcete súbor odoslať na e-mail programu Outlook a odoslať ho, môžete použiť metódu uvedenú v tomto článku. Na splnenie tejto úlohy v priebehu niekoľkých sekúnd používa VBA.

Úprimne povedané, pripojiť celý zošit programu Excel ako PDF príloha v e-maile je veľmi jednoduchá. Najprv môžete zošit uložiť ako PDF súbor a potom vytvorte nový e-mail programu Outlook a priložte súbor PDF súbor na tento mail. V programe Excel však neexistuje taká priama funkcia na prevod jedného hárka na a PDF založiť a poslať poštou. Ak teda chcete rýchlo pripojiť hárok programu Excel ako PDF v prílohe e-mailu, môžete využiť nasledujúce prostriedky.

Pripojte pracovný hárok programu Excel ako PDF Príloha v e-maile programu Outlook

Pripojte pracovný hárok programu Excel ako PDF Príloha vo vašom e-maile

  1. V prvom rade musíte ako obvykle otvoriť zdrojový pracovný hárok programu Excel.
  2. V okne programu Excel by ste potom mali stlačiť klávesové skratky „Alt + F11“.
  3. Následne získate úspešný prístup do okna editora Excel VBA.
  4. Potom by ste mali otvoriť projekt „ThisWorkbook“.
  5. Ďalej skopírujte a vložte nasledujúci kód VBA do tohto okna projektu.
Sub SendWorksheet_AsPDFAttachment_OutlookEmail () Dim objFileSystem ako objekt Dim strTempFile ako reťazec Dim objOutlookApp ako Outlook.Application Dim objMail ako Outlook.MailItem 'Zadajte názov listu Sheets ("DataNumen Zamestnanci "). Aktivujte ActiveSheet.UsedRange.Select ThisWorkbook.Sheets (Array ("DataNumen Zamestnanci ")). Vyberte Nastaviť objFileSystem = CreateObject (" Scripting.FileSystemObject ") strTempFile = objFileSystem.GetSpecialFolder (2). Cesta &" \ "& ActiveSheet.Name &" v "& ThisWorkbook.Name &".pdf"'exportovať konkrétny pracovný hárok ako PDF
    Typ Selection.ExportAsFixedFormat: = xlTypePDF, Názov súboru: = strTempFile, Kvalita: = xlQualityStandard, IncludeDocProperties: = True, IgnorePrintAreas: = False, OpenAfterPublish: = True 'Vytvoriť nový e-mail Nastaviť objOutlookApp = CreateObject ("Outlook.Application") Nastaviť objMail = objOutlookApp.CreateItem (olMailItem)' Pripojiť PDF súbor objMail.Attachments.Add strTempFile objMail.Display '==> zobraziť tento e-mail' Odstrániť teplotu PDF súbor objFileSystem.DeleteFile (strTempFile) End Sub

Kód VBA - priložte pracovný hárok programu Excel ako PDF Príloha v e-maile programu Outlook

  1. Nakoniec môžete nové makro spustiť kliknutím na ikonu „Spustiť“ na paneli nástrojov alebo priamym stlačením klávesu „F5“.
  2. Po dokončení spustenia makra sa okamžite zobrazí nový e-mail programu Outlook. V ňom môžete vidieť a PDF súbor v riadku „Priložený“, ako napríklad nasledujúca snímka obrazovky:Pripojená PDF rezeň

Chráňte súbor Outlook pred poškodením

Ako všetci vieme, Outlook je náchylný na korupciu, podobne ako dokumenty Word a zošity Excel. Preto by sme mali pochopiť, ako chrániť Outlook pred poškodením. Vzhľadom na to, že vírusy sú čoraz zložitejšie a nekontrolovanejšie, je program Outlook často poškodený v dôsledku vírusovej infekcie a útoku malvéru. V tejto situácii musíte nainštalovať spoľahlivý antivírusový softvér a zakázať automatické sťahovanie externých súborov. Ďalej by ste sa mali chytiť prašníka robustného Oprava programu Outlook nástroj, ako DataNumen Outlook Repair. Je schopný poskytnúť vám most účinný prostriedok nápravy v prípade poškodenia aplikácie Outlook.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Jedna odpoveď na „Ako pripojiť pracovný hárok programu Excel ako a PDF Príloha vo vašom e-maile programu Outlook“

  1. Ahoj,

    Bol by spôsob, ako pridať túto vba do môjho súčasného fungovania.

    Snažím sa dostať pdf pripojiť k môjmu e-mailu cez vba vytvorenú pre môj pracovný hárok.

    Tu je moja vba pre kontakty, ktoré sa automaticky zobrazia po kliknutí na vytvorené grafické tlačidlo:

    „Podriadený postup VBA k Star• E-mail

    Sub Start_Email()

    Dim iConfirmation As VbMsgBoxResult

    iConfirmation = MsgBox(“Odoslať úlohu návrhu STP pridelenému – Áno?”, vbYesNo + vbQuestion, “Potvrdenie”)

    Ak iConfirmation = vbNo Potom Exit Sub

    'Deklarovanie premenných, aby ste sa mohli pozrieť na pracovný list 'Zoznam e-mailov'

    Dim sh As Worksheet
    Dim iRow ako celé číslo

    Nastaviť sh = ThisWorkbook.Sheets(“E-mail List”)

    iRow = 2

    Do While sh.Range("A" & iRow).Hodnota ""

    'skontrolujte, či už bol e-mail odoslaný alebo nie
    Ak sh.Range(“C” & iRow).Value = “” Potom

    'Zavolajte SendEmail (S_UserName ako reťazec, S_EmailID ako reťazec)
    Zavolajte SendEmail(sh.Range(“A” & iRow).Value, sh.Range(“B” & iRow).Value)
    sh.Range(“C” & iRow).Value = “Áno – úloha odoslaná e-mailom. Odomknite a odošlite revíziu“

    End If

    iRow = iRow + 1
    Slučka

    End Sub

    ....a tu je moje doterajšie úsilie, ale pdf nepripojí sa pri výbere:

    'Postup VBA na prípravu a odoslanie e-mailu

    Sub SendEmail (S_UserName ako reťazec, S_EmailID ako reťazec)

    „Deklarovanie premenných ako typu objektu na odkazovanie na aplikáciu Outlook a poštovú položku

    Dim OutApp As Object ' Aplikácia Outlook
    Stlmiť OutMail ako objekt 'Outlook Mail Item
    Dim sImgName ako reťazec
    Stmavený výsledok Ako variant

    výsledok = Application.GetOpenFilename(“Všetky súbory,*.*,súbory Excel,*.xls,súbory Word,*.doc,PDF Súbory, *.pdf”)

    PathFileName = ThisWorkbook.path & “\” & FileName & “.pdf"

    'pridať cestu a súbor do premenných
    Dim aPath As String: aPath = Cells(1, 1).Value

    „Nastavte referenciu aplikácie Outlook

    Nastaviť OutApp = CreateObject(“Outlook.Application”)

    'Nastavte referenciu poštovej položky

    Nastaviť OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    S OutMailom

    .Komu = S_EmailID
    .Od = ""
    .CC = S_UserName
    .BCC = ""
    .attachments.Add ThisWorkbook.path & “\STP_DTask_instructions.pdf"
    .attachments.Add ThisWorkbook.path & “\STPLogo.jpg”
    .prílohy.Add aPath
    .attachments.Add ActiveWorkbook.FullName
    myattachments. Pridajte „FullPath\FileName.pdf"
    sImgName = “STPLogo.jpg”
    .Predmet = Bunky(8, 2).Hodnota
    .HTMLBody = „“
    .Displej
    '.Pošli
    Koniec s

    Nastavte OutMail = Nič
    Nastavte OutApp = Nič

    End Sub

    „Podriadený postup VBA k Star• E-mail

    Sub Start_Email()

    Dim iConfirmation As VbMsgBoxResult

    iConfirmation = MsgBox(“Odoslať úlohu návrhu STP pridelenému – Áno?”, vbYesNo + vbQuestion, “Potvrdenie”)

    Ak iConfirmation = vbNo Potom Exit Sub

    'Deklarovanie premenných, aby ste sa mohli pozrieť na pracovný list 'Zoznam e-mailov'

    Dim sh As Worksheet
    Dim iRow ako celé číslo

    Nastaviť sh = ThisWorkbook.Sheets(“E-mail List”)

    iRow = 2

    Do While sh.Range("A" & iRow).Hodnota ""

    'skontrolujte, či už bol e-mail odoslaný alebo nie
    Ak sh.Range(“C” & iRow).Value = “” Potom

    'Zavolajte SendEmail (S_UserName ako reťazec, S_EmailID ako reťazec)
    Zavolajte SendEmail(sh.Range(“A” & iRow).Value, sh.Range(“B” & iRow).Value)
    sh.Range(“C” & iRow).Value = “Áno – úloha odoslaná e-mailom. Odomknite a odošlite revíziu“

    End If

    iRow = iRow + 1
    Slučka

    End Sub

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *