İ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üyməsinə tıklandığında e-poçt göndərmək üçün necə?

Excel iş səhifəsində bir düyməni basaraq Outlook vasitəsilə e-poçt göndərməyinizi düşünsəniz, necə edə bilərsiniz? Bu məqalədə ətraflı məlumat əldə etmək üçün VBA metodu təqdim ediləcək.

VBA kodu ilə tıklandığında 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: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA kodu ilə tıklandığında e-poçt göndər


Komanda Düğmesi Excel iş kitabında tıklandığında Outlook vasitəsilə e-poçt göndərmək üçün aşağıdakıları edin.

1. Tıklayarak çalışma kitabında Komut Düğmesini əlavə edin Developer > Taxmaq > Command Button (ActiveX Control). Ekran görüntüsünə baxın:

2. Daxil verilən Komut Düğmesini sağ basın və sonra basın Kodları baxın aşağıda göstərilən ekran görünüşü kimi sağ tıklayarak menyudan.

3. Açılışda Proqramlar üçün Microsoft Visual Basic pəncərədə, aşağıdakı VBA skripti ilə Kodun penceresindəki orijinal kodu əvəz edin.

VBA kodu: Excel düyməsinə tıklandığında e-poçt göndər

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Qeydlər:

1). Xahiş edirik e-poçt orqanını lazım olduğunda dəyişdirin xMailBody kodu daxil edin.

2). Dəyişdirin E-poçt ünvanı Alıcının e-poçt ünvanı ilə uyğun olaraq . = "E-poçt ünvanı".

3). Sizə lazım olan Cc və Bcc alıcılarını göstərin .CC = "" Bcc = "" bölmələr.

4). E-poçt mövzunu satırla dəyişdirin .Subject = "Test e-poçt göndər düyməsini basaraq göndərin".

4. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

5. Tıklayarak Dizayn rejimi söndürün Developer > Dizayn Moda. Ekran görüntüsünə baxın:

Bundan sonra, Komut Düğmesine hər dəfə basıldığında, müəyyən alıcılar, mövzu və bədən ilə avtomatik olaraq bir e-poçt yaradılacaq. Xahiş edirik e-poçt ünvanını tıklayarak göndərin Göndərmək düyməsini basın.

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


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.
    Rasike · 1 months ago
    Hi There,
    Can anyone could help me on the following requirement?
    I have an excel sheet having two drop down lists.

    1 drop down list- list of departments

    2 drop down list- category

    What i want is when I select a department and category from the lists;(for example if I select "sales" in department and "monthly report" in category)

    I need to email the PDF version of that work sheet to the sales team with the email subject is monthly report.

    If i select "production" from the department list, the email should go to a group of people in the production.

    I appreciate if you can help me on this

    Rasike
  • To post as a guest, your comment is unpublished.
    Abi · 2 months ago
    Can I reference the value in a cell in the subject with string? Some variation of the below?

    .Subject = "New Event:" & Target.Address = "$B$38"
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Abi,
      Please change the code to .Subject = "New Event:" & [B38].
      Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Laurie · 3 months ago
    Is it possible to, instead of sending the attachment in the email, to send a hyperlink to the file (located on SharePoint)?
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Laurie,
      Can't help you with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Glenn · 3 months ago
    using this VBA code, can I reference cell information within the body of the email? For instance, how would I reference cell values to the code below?

    xMailBody = "Body content" & vbNewLine & vbNewLine & _
    "This is line 1" & vbNewLine & _
    "This is line 2"

    Thanks,
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Glenn,
      Please apply the following code. Thank you for your comment.
      xMailBody = [B5]
  • To post as a guest, your comment is unpublished.
    Hannah · 4 months ago
    Is it possible to add a second email button within the same worksheet? When I try to do it, it is connecting to the code from the original email button. thanks.
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi,
      You need to assign different codes to each button.