İ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-in hüceyrələrində göstərilən e-poçt ünvanlarına e-poçt göndərmək üçün necə?

E-poçt ünvanlarınızın bir siyahısını ehtiva etdiyini və indi e-poçt mesajlarını bu e-poçt ünvanlarına birbaşa Excel-də kütləvi şəkildə göndərmək istəyirik. Necə nail olmaq olar? Bu yazıda Excel-in hüceyrələrində göstərilən birdən çox e-poçt ünvanına e-poçt göndərmə üsulları göstərilir.

VBA ilə Excel hüceyrələrində göstərilən e-poçt ünvanlarına e-poçt göndər

Excel Kutools ilə olan hüceyrələrdə göstərilən e-poçt ünvanlarına e-poçt göndər


VBA ilə Excel hüceyrələrində göstərilən e-poçt ünvanlarına e-poçt göndər


Aşağıdakı VBA kodu Excel-də göstərilən e-poçt ünvanlarına e-poçt göndərməyinizə kömək edə bilər. Xahiş edirik bunu edin.

1. İş yerində e-poçt göndərmək üçün lazım olan e-poçt ünvanlarını ehtiva edir, basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Açılışda Proqramlar üçün Microsoft Visual Basic pəncərədə basın Tools > References Aşağıdakı kimi ekran görüntüsü göstərilir.

3. İçində Referanslar - VBAProject informasiya qutusunu axtarın və yoxlayın Microsoft Outlook Nesne Kitabxanası seçimi seçin və sonra basın OK düyməsini basın.

4. Sonra basın Taxmaq > Modules. Aşağıdakı VBA kodunu Module pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: Excel-in hüceyrələrində göstərilən e-poçt ünvanlarına e-poçt göndər

Sub SendEmailToAddressInCells()
    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
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Qeyd: Hər ikinizdə e-poçt mövzunuzu və bədəninizi göstərin .Subject = "test""Bəli" "Hörmətli" _ & vbNewLine & vbNewLine & _ "Bu, Excel & koddakı xətlər.

5. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Açılışda Excel üçün Kutools informasiya qutusuna, e-poçt göndərəcək e-poçt ünvanlarını ehtiva edən aralığı seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra seçilmiş e-poçt ünvanlarına əsasən e-poçtlar göstərilən ekran görüntüsü kimi yaradılır. Xahiş edirik basın Göndərmək bu e-poçtları göndərmək üçün düymələr.

Qeydlər:

1. Seçilmiş hüceyrələrdə ayrı olaraq üç e-poçt ünvanı varsa, üç e-poçt mesajı yaradılacaq.

2. VBA kodu yalnız Outlook proqramını e-poçt proqramı kimi istifadə edərkən işləyir.


Excel Kutools ilə olan hüceyrələrdə göstərilən e-poçt ünvanlarına e-poçt göndər

Bu bölmə sizi tövsiyə edəcək E-poçt göndər faydası Excel üçün Kutools. Bu kommunal ilə asanlıqla Excel-in hüceyrələrində göstərilən e-poçt ünvanlarına e-poçt göndərə bilərsiniz. Xahiş edirik bunu edin.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. E-poçt ünvanlarını iş səhifənizdə üstbilgi hücresi ilə seçin və sonra basın Müəssisə > E-poçt göndər. Ekran görüntüsünə baxın:

2. Popping up E-poçt göndər informasiya qutusu, aşağıdakı konfiqurasiyaları edin:

2.1) E-poçt ünvanlarının başlığını seçin Kənar açılan siyahı;

2.2) E-poçt mövzusunu daxil edin mövzu Qutu;

2.3) E-poçt bədəninizi tərtib etmək;

2.4) Outlook vasitəsilə e-poçt göndər Qutu;

2.5) basın Göndərmək düyməsini basın. Ekran görüntüsünə baxın:

3. Sonra a Excel üçün Kutools informasiya qutusu, neçə e-məktub göndərildiyini sizə xəbər verir. Xahiş edirik basın OK düyməsini basın və bağlayın E-poçt göndər dialoq qutusu. Ekran görüntüsünə baxın:

Qeydlər:

1. Outlook-a gedə bilərsiniz Göndərilən əşyalar göndərən e-poçtları yoxlamaq üçün qovluq.

2. Ayrıca tıklayarak başqa bir server istifadə edə bilərsiniz Giden Server Ayarları göndərmə rejimi özünüzə təyin etmək.

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.


Demo: Excel üçün Kutools olan hüceyrələrdə göstərilən e-poçt ünvanlarına e-poçt göndər

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!


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.