Ինչպե՞ս ուղարկել 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 = ""
.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
ՆշումԿոդում խնդրում ենք փոխեք ստացողի էլ. Փոստի հասցեն և էլ. Փոստի թեման տողում Դեպի = "" եւ լայն .Subject = "Ավելացնել աղյուսակ outlook փոստի մարմնում" , Sheet1 այն թերթիկն է, որը պարունակում է աղյուսակը, որը դուք ցանկանում եք ուղարկել, խնդրում ենք փոխել այն ձեր սեփականով:
3. Սեղմեք F5 ծածկագիրը գործելու համար: Բացման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, մուտքագրեք գծապատկերի անվանումը, որը դուք կցեք էլփոստի մարմնում, ապա կտտացրեք այն OK կոճակ Տեսեք,
Այնուհետև էլփոստը ստեղծվում է ավտոմատ կերպով `նշված գծապատկերով, որը ցուցադրվում է էլ. Փոստի մարմնում, ինչպես ցույց է տրված նկարում: Խնդրում ենք սեղմել Ուղարկել կոճակը ՝ այս էլ-նամակն ուղարկելու համար:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
- Ինչպե՞ս ստորագրություն տեղադրել Outlook էլփոստի մեջ, երբ vba- ն ուղարկում եք Excel- ում:
- Ինչպե՞ս նամակ ուղարկել Excel- ում օրվա որոշակի ժամին:
- Excel- ում HTML էլփոստի մարմնով ինչպե՞ս նամակ ուղարկել:
- Excel- ում ինչպե՞ս ուղարկել էլփոստ ՝ նշված համարձակ / չափ / գույն / ընդգծված տեքստի ձևաչափով:
- Ինչպե՞ս ուղարկել էլ.փոստ առանց Excel- ի Outlook- ի:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: