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

Bu məqalə, Excel-də əlavə edilmiş bir çox əlavə ilə Outlook vasitəsilə e-poçt göndərməkdən bəhs edir.

VBA kodu ilə Excel-də birdən çox fayl əlavə olunmuş e-poçt göndər

Excel-də Kutools ilə Excel-də birləşdirilmiş bir çox eki ilə tez e-poçt göndərin


VBA kodu ilə Excel-də birdən çox fayl əlavə olunmuş e-poçt göndər


Excel-də əlavə edilmiş bir çox eki olan bir e-poçt göndərmək üçün aşağıdakıları edin.

1. Tıklayarak bir komanda düyməsini daxil edin Developer > Taxmaq > Command Button (ActiveX Control). Ekran görüntüsünə baxın:

2. Komanda Düğmesini daxil etdikdən sonra, sağa basın və seçin Kodları baxın kontekst menyusundan.

3. 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.

4. İç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.

5. Sonra kodun kodunu VBA kodunun altındakı orijinal kodu əvəz et.

VBA kodu: Excel-də birdən çox əlavə ilə e-poçt göndər

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Qeyd: dəyişənləri dəyişdirərək, e-poçt alıcınızı, mövzu və bədəninizi müəyyən edin Xoşbəxt. Xuebi@163.com, .Subject = "test".HTMLBody = "test" koddakı xətlər.

6. Basın Dayandırmaq + Q düymələri birlikdə çıxmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

7. klik Developer > Dizayn Moda Dizayn rejimi söndürmək üçün. Ekran görüntüsünə baxın:

8. Kodu çalıştırmaq üçün Komut düyməsini basın. Popping up İnsanlar pəncərədə e-poçta əlavə etmək üçün lazım olan faylları seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

9. Sonra müəyyən edilmiş sahələri və əlavə edilmiş əlavələri ilə bir e-poçt yaradılır. Xahiş edirik basın Göndərmək göndərmək üçün düyməsini basın. Ekran görüntüsünə baxın:

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


Excel-də Kutools ilə Excel-də birləşdirilmiş bir çox eki ilə tez e-poçt göndərin

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-də bir çox əlavələr ilə elektron 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 siyahısı yaratmaq üçün göstərilən aşağıdakı ekran görüntüsünü izləyin. Və alıcının e-poçt ünvanını, e-poçt mövzunu və göndərmə e-poçtuna əlavə etmək üçün lazım olan əlavə yollarını doldurun.

2. İndi yaradılan bütün poçt siyahınızı seçin (burada A1: E2 aralığını seçirəm), 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:

A. Bəli, Faylları əlavə edinmövzu sahələr avtomatik seçilmiş poçt siyahıları ilə doldurulacaq;

B. Sizə lazım olan e-poçt orqanını yaradır;

C. yoxlayın Outlook vasitəsilə e-poçt göndər Qutu;

D. Düyməsini basın Göndərmək e-poçt göndərmək üçün 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:

Qeyd: Göndərən e-poçtları yoxlamaq üçün Outlook'un Göndərilən Öğeler qovluğuna gələ bilərsiniz.

İ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.


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.
    Regina · 3 months ago
    the above code works perfectly thanks!! but my email automatic signature seem to disappear with this code. any idea why?
  • To post as a guest, your comment is unpublished.
    Rizwan Siddiqui · 9 months ago
    What if multiple different user and different attachment to be send with different subject line.
  • To post as a guest, your comment is unpublished.
    Prashant Soni · 1 years ago
    What if above files are located in sub-folders? How to look for a file in folder and sub-folders?
  • To post as a guest, your comment is unpublished.
    Laurel Granger · 1 years ago
    I am able to "Quickly send email with multiple attachments attached in Excel with Kutools for Excel" using your steps above, but would like to take it one step further and personalize each email by inserting their names (from a column in the Excel sheet) into the body of the email. While in the body of the email, I try selecting the field and clicking on "Insert Placeholder" but nothing happens. Any idea why or how I can fix this? Thank you!