Conas cairt shonrach a sheoladh i ríomhphost le vba in Excel?

B’fhéidir go bhfuil a fhios agat conas ríomhphost a sheoladh trí Outlook in Excel le cód VBA. An bhfuil a fhios agat, áfach, conas cairt shonrach i mbileog oibre áirithe a cheangal le corp an ríomhphoist? Taispeánann uachtanna an ailt seo an modh duit chun an fhadhb seo a réiteach.

Seol cairt ar leith i ríomhphost in Excel le cód VBA

Seol cairt ar leith i ríomhphost in Excel le cód VBA

Déan mar a leanas le do thoil chun cairt shonrach a sheoladh i r-phost le cód VBA in Excel.

1. Sa bhileog oibre ina bhfuil an chairt is mian leat a cheangal sa chorp ríomhphoist, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Chóid.

Cód VBA: Seol cairt shonrach i ríomhphost in Excel

Sub mailHTMLsend()
'Updated by Extendoffice 2018/3/5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xStartMsg As String
    Dim xEndMsg As String
    Dim xChartName As String
    Dim xChartPath As String
    Dim xPath As String
    Dim xChart As ChartObject
    On Error Resume Next
    xChartName = Application.InputBox("Please enter the chart name:", "KuTools for Excel", , , , , , 2)
    If xChartName = "" Then Exit Sub
    Set xChart = Sheets("Sheet1").ChartObjects(xChartName) 'Change "Sheet1" to your worksheet name
    If xChart Is Nothing Then Exit Sub
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xStartMsg = "<font size='5' color='black'> Good Day," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    xEndMsg = "<font size='4' color='black'> Many Thanks," & "<br> <br> </font>"
    xChartPath = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src=" & "cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "xrr@163.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add xChartPath
        .HTMLBody = xStartMsg & xPath & xEndMsg
        .Display
    End With
    Kill xChartPath
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

nótaí: Sa chód, athraigh seoladh ríomhphoist an fhaighteora agus ábhar an ríomhphoist ar líne .To = "xrr@163.com" agus líne .Subject = "Cuir Cairt i gcorp an phoist ionchais" , Sheet1 an bhfuil an bhileog ina bhfuil an chairt a theastaíonn uait a sheoladh, athraigh í go dtí do cheann féin.

3. Brúigh an F5 eochair chun an cód a rith. San oscailt Kutools le haghaidh Excel bosca dialóige, cuir isteach ainm na cairte a cheanglóidh tú sa chorp ríomhphoist, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin cruthaítear r-phost go huathoibríoch agus taispeántar an chairt shonraithe sa chorp ríomhphoist mar a thaispeántar thíos. Cliceáil le do thoil ar an gcnaipe Seol chun an ríomhphost seo a sheoladh.

Earraí gaolmhara:

• Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?
• Conas síniú a chur isteach i ríomhphost Outlook agus é á sheoladh ag vba in Excel?
• Conas ríomhphost a sheoladh ag am ar leith den lá in Excel?
• Conas ríomhphost a sheoladh le comhlacht ríomhphoist HTML in Excel?
• Conas ríomhphost a sheoladh le formáid shonraithe cló trom / méid / dath / béim ar líne in Excel?
• Conas ríomhphost a sheoladh gan Outlook in Excel?