Note: The other languages of the website are Google-translated. Back to English

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:

 

 

 


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á.
cluaisín kte 201905

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á!
bun officetab

 

 

Sórtáil tuairimí de réir
Comments (13)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
nuair a chuirim ainm na cairte isteach ní ghineann an ríomhphost an bosca dialóige ach dúnann, aon smaoineamh cad atá mícheart déanta agam? Lean mé gach céim
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is í an tsaincheist ná nach féidir linn ainmneacha a shocrú le haghaidh Réada Cairte cosúil le táblaí. Ní mór duit an ID slánuimhir a chur ar aghaidh chun oibriú. Mar shampla, mura bhfuil agat ach 1 chairt sa "Bileog1", déan iarracht an luach 1 a rith nuair a thaispeánann an bosca msg suas.

PS: leithscéal as an drochbhéarla :]
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hola mar puede enviar por correo, una tabla dinámica, agus un graifico
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá earráid sa chód : "\") + 1) & "" " leithead = 700 airde = 50 Sa téacs trom ba chóir gur camóg inbhéartaithe singil a bheadh ​​sa lár

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Áiríonn sé an chairt mar cheangaltán. An bhfuil aon smaoineamh agat conas é a chur san áireamh mar phictiúr i gcorp an phoist féin. Go raibh maith agat, Youssef
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fadhb chéanna, aon réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi J,
Nuashonraíodh an cód. Bain triail as, le do thoil. Leithscéal as an míchaoithiúlacht.


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="/%20&%20"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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
mi nic sie nie załącza, czy coś tutaj należałoby wpisać jeszcze?
xPath = "co tutaj trzeba wprowadzić?"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Kuba,
Bain an / tagáil isteach <img src="/.
Is é an t-eagarthóir ar an suíomh is cúis leis an earráid.
Leithscéal as an míchaoithiúlacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
cześć, pełny kod działa tylko do momentu podglądu komunikatu, przy wysyłce adresat otrzymuje błąd i wykresu nie widać ("Nie można wyświetlić połączonego obrazu. Plik mógł zostać przeniesiony lub usunięty albo zmieniono jego nazwę. Sprawdź czy łącze wskazuje poprawny plik i lokazlizację.") Czy z Was też tak ktoś miał czy tylko u mnie taki zink? Prosze o pomoc, tutaj kod, który dotyczy wykresum już tak mało brakuje :)

Dim xChartName Mar Theaghrán
Dim xChartPath As Teaghrán
Dim xPath Mar Teaghrán
Dim xChart As ChairtObject
Ar Lean Earráid Aghaidh
Dim wydzialy As Teaghrán
wydzialy = liosta.Cealla(3, 75)
xChartName = Application.InputBox(wydzialy, "KuTools for Excel", , , , , , 2) 'Wykres1' "Iontráil ainm na cairte:"
Má tá xChartName="" Ansin Scoir Fo
Socraigh xChart = Sheets("Wykresy").ChartObjects(xChartName) 'Athraigh "Sheet1" chuig ainm do bhileog oibre
Mura bhfuil tada i gceist le xChart Ansin Scoir Fo
xChartPath = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".svg" '.bmp '.svg '.svg ma lepsza jakość
xPath = " "
xChart.Chart.Export xChartPath


Dim OutApp Mar Cuspóir
Dim OutMail Mar Réad
Set OutApp = CreateObject("Outlook.Application")
Socraigh OutMail = OutApp.CreateItem(0)
Le OutMail
.Chuig = ríomhphoist(b)
.CC = ríomhphoist_dw(b)
.Subject = "XXXX" ' - " & lista.Cells(i, 66)
.Ceangail.Cuir xChartPath leis
.HTMLBody = "treść" & xPath

Socraigh .SendUsingAccount = OutApp.Session.Accounts.Item(1)

.Dráma
Deireadh Le
Maraigh xChartPath
Set OutMail = Ní dhéanfaidh aon ní
Socraigh OutApp = Ní dhéanfaidh aon ní
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Kuba,
Nuashonraíodh an cód. Is féidir leis an bhfaighteoir an chairt a fheiceáil de ghnáth. Bain triail as, le do thoil.
nótaí: Sa chód, athraigh an "Cairt 1" chuig d'ainm cairte féin. Agus sonraigh an seoladh ríomhphoist sa réimse To.
Sub mailHTMLsend()
'Updated by Extendoffice 20221013
    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 = "Chart 1" 'The name of the chart in the current worksheet you want to send.
    If xChartName = "" Then Exit Sub
    Set xChart = Application.ActiveSheet.ChartObjects(xChartName)
    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="/%20&%20"cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "Email Address"
        .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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit , ba mhaith liom spás a chur i gcorp an phoist , cén eochairfhocal ar cheart dom a úsáid.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit pavan chougule,
Tá ábhar an chomhlachta ríomhphoist sa dá líne seo a leanas sa chód. Is féidir leat an corp ríomhphoist a mhodhnú de láimh ach an eochair spáis a bhrú ar do mhéarchlár chun spás a chur leis.
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>"
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL