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

Ինչպե՞ս ուղարկել Excel- ում vba- ով էլեկտրոնային փոստով որոշակի գծապատկեր:

Դուք կարող եք իմանալ, թե ինչպես նամակ ուղարկել Outlook- ի միջոցով VBA կոդով: Այնուամենայնիվ, գիտե՞ք ինչպես որոշակի աշխատանքային թերթում որոշակի գծապատկեր կցել էլ-նամակի մարմնին: Այս հոդվածը ցույց կտա ձեզ այս խնդիրը լուծելու մեթոդը:

Ուղարկեք հատուկ գծապատկեր Excel- ում `VBA կոդով


Ուղարկեք հատուկ գծապատկեր Excel- ում `VBA կոդով

Խնդրում ենք վարվել հետևյալ կերպ ՝ Excel- ում VBA կոդով նամակ ուղարկելու համար հատուկ աղյուսակ:

1. Աշխատաթերթում պարունակում է այն աղյուսակը, որը ցանկանում եք կցել էլ. Փոստի մարմնում, սեղմել ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:

VBA կոդ. 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

ՆշումԿոդում խնդրում ենք փոխեք ստացողի էլ. Փոստի հասցեն և էլ. Փոստի թեման տողում . To = "xrr@163.com" եւ լայն .Subject = "Ավելացնել աղյուսակ outlook փոստի մարմնում" , Sheet1 այն թերթիկն է, որը պարունակում է աղյուսակը, որը դուք ցանկանում եք ուղարկել, խնդրում ենք փոխել այն ձեր սեփականով:

3. Սեղմեք F5 ծածկագիրը գործելու համար: Բացման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, մուտքագրեք գծապատկերի անվանումը, որը դուք կցեք էլփոստի մարմնում, ապա կտտացրեք այն OK կոճակ Տեսեք,

Այնուհետև էլփոստը ստեղծվում է ավտոմատ կերպով `նշված գծապատկերով, որը ցուցադրվում է էլ. Փոստի մարմնում, ինչպես ցույց է տրված նկարում: Խնդրում ենք սեղմել Ուղարկել կոճակը ՝ այս էլ-նամակն ուղարկելու համար:


Առնչվող հոդվածներ քանակը:

 

 

 


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում

 

 

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբ ես մուտքագրում եմ գծապատկերի անունը, փոստը չի առաջացնում երկխոսության տուփը պարզապես փակվում է, պատկերացնո՞ւմ եք, թե ինչ սխալ եմ արել: Ես հետևել եմ յուրաքանչյուր քայլին
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդիրն այն է, որ մենք չենք կարող աղյուսակների նման անուններ դնել գծապատկերների օբյեկտների համար: Աշխատելու համար անհրաժեշտ է փոխանցել ամբողջ ID-ն: Օրինակ, եթե «Seet1»-ում ունեք միայն 1 գծապատկեր, փորձում եք փոխանցել 1 արժեքը, երբ հայտնվի msgbox-ը:

Հ.Գ. կներեք վատ անգլերենի համար:]
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
hola como puede enviar por correo, una tabla dinámica, y no un grafico
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդում սխալ կա՝ «\») + 1) & "" " width=700 height=50Թավ տեքստում միջինը պետք է լինի մեկ շրջված ստորակետ

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն ներառում է աղյուսակը որպես հավելված: Դուք որևէ պատկերացում ունե՞ք, թե ինչպես կարելի է այն որպես նկար ներառել հենց փոստի մարմնում: Շնորհակալություն, Յուսեֆ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույն խնդիրը, ինչ-որ լուծում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջ.
Կոդը թարմացվել է։ Խնդրում եմ, փորձեք: Ներողություն անհանգստության համար.


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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարեւ,
mi nic sie nie załącza, czy coś tutaj należałoby wpisać jeszcze?
xPath = "co tutaj trzeba wprowadzić?"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կուբա,
Խնդրում ենք հեռացնել / նշել <img src="/.
Սխալը առաջացել է կայքի խմբագրի կողմից:
Ներողություն անհանգստության համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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 zonk? Prosze o pomoc, tutaj kod, który dotyczy wykresum już tak mało brakuje :)

Խոնավեցրեք xChartName-ը որպես տող
Dim xChartPath-ը որպես տող
Dim xPath որպես տող
Dim xChart-ը որպես ChartObject
Ս.թ. սխալի Ռեզյումե Next
Dim wydzialy As String
wydzialy = lista.Cells(3, 75)
xChartName = Application.InputBox(wydzialy, "KuTools for Excel", , , , , , 2) 'Wykres1 '"Խնդրում ենք մուտքագրել գծապատկերի անունը.
Եթե ​​xChartName = "" Ապա Դուրս եկեք ենթակետից
Սահմանեք xChart = Sheets ("Wykresy").ChartObjects(xChartName) 'Փոխեք «Sheet1»-ը ձեր աշխատաթերթի անունով
Եթե ​​xChart-ը ոչինչ է, ապա դուրս եկեք Sub-ից
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-ը որպես օբյեկտ
Մթնեցնել OutMail որպես օբյեկտ
Set OutApp = CreateObject («Outlook.Application»)
Սահմանել OutMail = OutApp.CreateItem(0)
OutMail-ի հետ
Դեպի = նամակներ (բ)
.CC = emails_dw(բ)
.Subject = "XXXX" ' - " & list.Cells(i, 66)
.Կցորդներ.Ավելացնել xChartPath
.HTMLBody = «treść» & xPath

Սահմանել .SendUsingAccount = OutApp.Session.Accounts.Item(1)

.Dուցադրել
Վերջ
Սպանեք xChartPath-ը
Սահմանել OutMail = Ոչինչ
Սահմանել OutApp = Ոչինչ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կուբա,
Կոդը թարմացվել է։ Ստացողը կարող է նորմալ դիտել աղյուսակը: Խնդրում եմ, փորձեք:
ՆշումԿոդում խնդրում ենք փոխել «Գծապատկեր 1Ձեր սեփական գծապատկերի անվան համար: Եվ նշեք էլփոստի հասցեն Դեպի դաշտում:
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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ԲԱՐԵՎ, ես ուզում եմ փոստի տեքստում տարածք ավելացնել, թե որ բանալի բառը պետք է օգտագործեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պավան Չուգուլ,
Կոդի հետևյալ երկու տողերը պարունակում են էլփոստի հիմնական բովանդակությունը: Դուք կարող եք ձեռքով փոփոխել էլ.
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>"
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից