İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də vba ilə elektron poçtda xüsusi bir chart göndərmək üçün necə?

VBA kodu ilə Excel-də Outlook vasitəsilə e-poçt göndərməyi bilirsiniz. Bununla yanaşı, e-poçtun cədvəlinə müəyyən bir işdə müəyyən bir işarənin necə yerləşdirildiyini bilirsinizmi? Bu yazıda bu problemi həll etmək üçün sizə üsul göstərilir.

VBA kodu ilə Excel-də elektron poçtda xüsusi bir chart göndərin


Yaradılmış poçt siyahısına əsasən Outlook vasitəsilə e-poçt göndərin:

The E-poçt göndər Excel üçün Kutools xidmətinin istifadəçiləri Excel-də yaradılmış poçt siyahısına əsasən Outlook vasitəsilə e-poçt göndərməyə kömək edir. Ekrana baxın:

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


VBA kodu ilə Excel-də elektron poçtda xüsusi bir chart göndərin


Excel-də VBA kodu olan bir e-poçta xüsusi bir chart göndərmək üçün xahiş edirik.

1. İş yerindəki e-poçt orqanına əlavə etmək istədiyiniz chartı ehtiva edir, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > Modules. Sonra VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Excel-də bir e-poçtda xüsusi bir chart göndərin

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)
    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 = ThisWorkbook.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

Qeyd: Kodda, alıcının e-poçt ünvanını və e-poçt mövzunu satırında dəyişdirin . = "Xrr@163.com" və xətt .Subject = "Outlook poçt orqanında Chart əlavə et" , Sheet1 göndərmək istədiyiniz grafiği olan hesabatı özünüzə dəyişdirin.

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Açılışda Excel üçün Kutools informasiya qutusuna, e-poçt orqanına əlavə edəcəyiniz chartın adını daxil edin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Daha sonra göstərilən ekran görüntüsünün olduğu kimi, e-poçt orqanında göstərilən göstərilən chart ilə avtomatik olaraq bir e-poçt yaradılır. Bu e-poçtu göndərmək üçün göndərmək düyməsini basın.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.