Conas ríomhphost a sheoladh le ceangaltáin iolracha ceangailte in Excel?

Tá an t-alt seo ag caint ar r-phost a sheoladh trí Outlook le ceangaltáin iolracha ceangailte in Excel.

Seol r-phost le ceangaltáin iolracha ceangailte in Excel le cód VBA

Seol r-phost le ceangaltáin iolracha ceangailte in Excel le cód VBA

Iontach! Ag baint úsáide as Cluaisíní Éifeachtacha in Excel Cosúil le Chrome, Firefox agus Safari!

Sábháil 50% de do chuid ama, agus laghdaigh na mílte cad a tharlaíonn nuair luch duit gach lá!

---

Déan mar a leanas le do thoil chun ríomhphost a sheoladh le ceangaltáin iolracha ceangailte in Excel.

1. Cuir isteach cnaipe ordaithe trí chliceáil Forbróir > Ionsáigh > Cnaipe Ordú (Rialú ActiveX). Féach an pictiúr:

2. Tar éis duit an Cnaipe Ordú a chur isteach, cliceáil ar dheis air agus roghnaigh Féach an cód ón roghchlár comhthéacs.

3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil uirlisí > tagairtí mar a thaispeántar thíos an pictiúr.

4. Sa Tagairtí - VBAProject bosca dialóige, faigh agus seiceáil an Leabharlann Réada Microsoft Outlook rogha, agus ansin cliceáil ar an OK cnaipe.

5. Ansin cuir an cód VBA faoi bhun an chóid bhunaidh i bhfuinneog an Chóid.

Cód VBA: Seol r-phost ceangailte le ceangaltáin iolracha in Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

nótaí: sonraigh d’fhaighteoir ríomhphoist, d’ábhar agus do chorp trí athrú a dhéanamh ar an athróg .To = sásta.xuebi@163.com, .Subject = "tástáil" agus .HTMLBody = "tástáil" línte sa chód.

6. Brúigh an Eile + Q eochracha le chéile chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

7. cliceáil Forbróir > Mód Dearaidh chun an Mód Dearaidh a mhúchadh. Féach an pictiúr:

8. Cliceáil an Cnaipe Ordú chun an cód a rith. Sa popping suas Brabhsáil fuinneog, roghnaigh na comhaid a chaithfidh tú a cheangal sa ríomhphost, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

9. Ansin cruthaítear r-phost le réimsí agus ceangaltáin shonraithe liostaithe amach. Cliceáil le do thoil ar an Seol cnaipe chun é a sheoladh. Féach an pictiúr:

nótaí: Níl an cód VBA ag obair ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.

Earraí gaolmhara:

• Conas ríomhphost a sheoladh chuig seoltaí ríomhphoist atá sonraithe i gcealla in Excel?
• Conas ríomhphost a sheoladh le raon sonraithe a chóipeáil agus a ghreamú isteach sa chomhlacht ríomhphoist in Excel?
• Conas síniú a chur isteach i ríomhphost Outlook agus é á sheoladh ag vba in Excel?
• Conas ríomhphost a sheoladh má tá an dáta dlite comhlíonta in Excel?
• Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?

---

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

• Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
• Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
• Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
• Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
• Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
• Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
• Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
• Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
• Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ... 

---

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

• Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
• Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
• Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...