Conas ríomhphost a sheoladh le raon sonraithe a chóipeáil agus a ghreamú isteach sa chomhlacht ríomhphoist in Excel?

In a lán cásanna, d’fhéadfadh go mbeadh réimse sonraithe ábhar i mbileog oibre Excel úsáideach i do chumarsáid ríomhphoist. San Airteagal seo, tabharfaimid isteach modh chun r-phost a sheoladh le pasting raon sonraithe isteach sa chomhlacht ríomhphoist go díreach in Excel.

Seol r-phost le raon sonraithe greamaithe i gcomhlacht ríomhphoist in Excel
Seol r-phost le raon sonraithe greamaithe i gcomhlacht ríomhphoist le huirlis iontach
Tuilleadh ranganna teagaisc le haghaidh postála in Excel ...

Seol r-phost le raon sonraithe greamaithe i gcomhlacht ríomhphoist in Excel

Is féidir leis an gcód VBA seo a leanas cabhrú leat raon a chóipeáil agus a ghreamú i gcomhlacht ríomhphoist Outlook go díreach in Excel. Déan mar a leanas le do thoil.

1. Sa bhileog oibre ina bhfuil an raon a theastaíonn uait a chóipeáil, brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. 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.

3. 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.

4. cliceáil Ionsáigh > Modúil, ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.

Cód VBA: Seol r-phost le raon sonraithe greamaithe i gcomhlacht ríomhphoist in Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

nótaí:

• 1). Athraigh an comhlacht ríomhphoist i líne le do thoil xEmailBody = "Hi" & vbLf & vbLf & "corp na teachtaireachta is mian leat a chur leis" & vbLf & vbLf & xEmailBody & vbNewLine de réir mar is gá duit.
• 2). Sonraigh d’fhaighteoir ríomhphoist agus d’ábhar le do thoil (.Chun = sásta.xuebi@163.com agus .Subject = "tástáil") línte sa chód.

5. Brúigh an F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh le do thoil an raon a theastaíonn uait a ghreamú sa chorp ríomhphoist, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

6. Anois cruthaítear r-phost le faighteoir sonraithe, ábhar, comhlacht agus raon Excel roghnaithe, cliceáil le do thoil ar an Seol cnaipe chun an ríomhphost seo a sheoladh. Féach an pictiúr a thaispeántar.

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

Seol r-phost le raon sonraithe greamaithe i gcomhlacht ríomhphoist le huirlis iontach

Mura n-úsáideann tú Outlook agus má theastaíonn uait ríomhphoist a sheoladh go díreach in Excel le sonraí raon sonraithe greamaithe taobh istigh, molaim go mór an Seol Ríomhphost fóntais de Kutools le haghaidh Excel duitse. Leis an ngné seo, níl le déanamh agat ach an freastalaí seoladh ríomhphoist atá ag dul as oifig a chumrú, agus ansin ríomhphoist a sheoladh in Excel go díreach tríd an seoladh ríomhphoist seo sa todhchaí.

1. Ar dtús, ní mór duit liosta seoltaí a ullmhú le réimsí riachtanacha.

• Leideanna: Caithfidh 2 shraith ar a laghad a bheith ar an liosta seoltaí, agus caithfidh na ceanntásca a bheith sa chéad tsraith (Má ghlactar leis gur mhaith leat ríomhphoist a sheoladh chuig dhá sheoladh ríomhphoist in Excel, clóscríobh an dá sheoladh ríomhphoist seo le ceannteideal “Ríomhphost” mar a thaispeántar thíos ).
• 
• Nó is féidir leat liosta seoltaí a chruthú leis an Cruthaigh Liosta Ríomhphoist gné.

2. Roghnaigh an raon a chuirfidh tú na sonraí leis an gcomhlacht ríomhphoist agus brúigh an Ctrl + C eochracha chun é a chóipeáil.

3. Roghnaigh an liosta seoltaí iomlán (cuir ceanntásca san áireamh), cliceáil Kutools Plus > Seol Ríomhphost. Féach an pictiúr:

4. Ansin an Seol Ríomhphost tagann bosca dialóige suas.

• 4.1) Tá earraí ar an liosta postála roghnaithe líonta i réimsí comhfhreagracha (is féidir leat níos mó réimsí a chur leis an liosta seoltaí de réir mar a theastaíonn uait);
• 4.2) Cliceáil ar bhosca an choirp ríomhphoist, brúigh an Ctrl + V eochracha chun na sonraí raon roghnaithe a ghreamú isteach ann. Ina dhiaidh sin, cuir ábhar eile de réir mar is gá duit;
• 4.3 Díthiceáil an Seol ríomhphoist trí Outlook bosca;
• 2.4) Cliceáil ar an Socruithe Freastalaí Amach cnaipe. Féach an pictiúr:

5. Ansin an Socruithe Freastalaí Amach (SMTP) - Scéim Nua tagann bosca dialóige suas. Líon an seoladh ríomhphoist lena shocruithe freastalaí, sonraigh fillteán chun gach ríomhphost a sheoltar a shábháil tar éis duit an Sábháil ríomhphoist seolta chuig bosca, agus ansin cliceáil ar an OK cnaipe chun na socruithe a shábháil.

6. Nuair a fhillfidh sé ar an Seol Ríomhphost bosca dialóige, cliceáil an Seol cnaipe chun an ríomhphost a sheoladh.

As seo amach, is féidir leat ríomhphoist a sheoladh leis an ngné seo in Excel go díreach.

Earraí gaolmhara: