İ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ə HTML e-poçt orqanı ilə e-poçt göndərmək üçün necə?

Excel'de HTML formatında cisim məzmunlu bir e-poçt göndərmək istəyirsinizsə, bu yazıda bir metod sizə kömək edə bilər.

VBA koduyla HTML e-poçt orqanı ilə e-poçt göndər


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 koduyla HTML e-poçt orqanı ilə e-poçt göndər


Xahiş edirik Excel-də HTML formatında cisim məzmunlu bir e-poçt göndərmək üçün aşağıdakıları edin.

1. Basın Dayandırmaq + F11 eyni zamanda açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: Excel-də HTML e-poçt orqanı ilə e-poçt göndər

Sub SendEmailformattext()
'Update by Extendoffice.com
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
             .Display
                .To = xRgVal
                .Subject = "Test"
                .HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Qeydlər:

1) dəyişdirin .Subject özünüzü birləşdirin.

2) Http line:

2.1) <span style = "" color: #80BFFF ""> ... </ span style = "" color: #80BFFF ""> mətn rəng formatıdır;

2.2) <b> ... </ b> mətni cəsarətli edə bilər;

2.3) Yeni bir xətt yaratmaq istəyirsinizsə, xahiş edirik yeni xətt mətnini əlavə edin ... ... </ br>;

2.4) mətni ilə vurğulayın <u> ... </ u>;

2.5) Və mətn ölçüsünü dəyişdirin <p style = 'font-family: kalibri; font-ölçüsü: 25'> ... ... </ p>.

3. klik Tools > References, yoxlayın Microsoft Outlook Nesne Kitabxanası qutusunda Referanslar - VAProject informasiya qutusunu seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

4. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools informasiya qutusunda, alıcıların e-poçt ünvanlarını seçin və sonra basın OK düyməsini basın.

Sonra müəyyən sahələrlə e-poçt və HTML gövdəsi yaradılır. Xahiş edirik basın Göndərmək göndərmək üçün 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.
  • To post as a guest, your comment is unpublished.
    Luis · 7 months ago
    i have my mail signature for default. however once i run the macro the message delete the mail signature from the new mail. Do you know how is possible mantein it ? thank you!!! Best Regards