İ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ə e-poçt orqanına müəyyən bir sıra kopyalamaq və yapışdırmaqla e-poçt göndərmək üçün necə?

Bir çox hallarda, Excel iş səhifəsində göstərilən müəyyən məzmun e-poçt ünsiyyətinizdə faydalı ola bilər. Bu yazıda Excel-də birbaşa e-poçt orqanına qeyd olunan sıra ilə e-poçt göndərmək metodunu təqdim edəcəyik.

Excel-də e-poçt orqanına yapışdırılan müəyyən bir sıra ilə e-poçt göndər


Excel-də e-poçt orqanına yapışdırılan müəyyən bir sıra ilə e-poçt göndər


Aşağıdakı VBA kodu bir sıra kopyalamağa və birbaşa Excel-də bir e-poçt orqanına yapışdırmanıza kömək edə bilər. Xahiş edirik bunu edin.

1. Çalışma kitabında kopyalamak üçün lazım olan aralığı 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. klik Taxmaq > Modules, sonra aşağıdakı VBA kodu Module pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: Excel-də e-poçt orqanına yapışdırılan müəyyən bir sıra ilə elektron poçt göndərin

Sub Send_Email()
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Qeydlər:

1). Lütfən e-poçt bədənini dəyişin xEmailBody = "Hi" & vbLf & vbLf & "əlavə etmək istədiyiniz mesaj gövdəsi" & vbLf & vbLf & xEmailBody & vbNewLine ehtiyacınız olduğu halda.

2). Xahiş edirik e-poçt alıcınızı və mövzunuzu daxil edin Xoşbəxt. Xuebi@163.com.Subject = "test" koddakı xətlər.

5. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools informasiya qutusundan xahiş edirik, e-poçt orqanına yapışdırmaq üçün lazım olan aralığı seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

6. İndi müəyyən bir alıcı, mövzu, bədən və seçilmiş Excel sıra ilə bir e-poçt yaradılır, xahiş edirik, basın Göndərmək Bu e-poçt göndərmək üçün düyməsini basın. Ekrana baxı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.
    miguel · 5 days ago
    Code to send automatically after selecting after ok
  • To post as a guest, your comment is unpublished.
    Dhiraj Mahajan · 2 months ago
    Hi
    This code is vary excellent, by using the code i have completed my 90% of my project.
    I have same issue as mentioned by Anirudh that is table formatting. How can i format the table in email.
    Please help me......
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Good Day,
      The problem can't be solved yet. Sorry for the inconvenience and thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Anirudh · 6 months ago
    This is great. It is working as expected. The only issue is that the format of the table is not maintained in the mail. Can you let me know how do we preserve the format of the table in the mail
  • To post as a guest, your comment is unpublished.
    Michael Ferguson · 7 months ago
    This code is great, but I need to execute with a command button rather than pressing F5 in code view. I'd like my employees to be able to fill out some info, then hit the button and have it copy the range of cells they completed and paste into email. I can get code working for the email button and separately for the copy/paste of the range of cells, but can't seem to combine both functions. Please help!!! Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi Michael,
      You just need to create a button (such as a Button (Form Control)) in your worksheet, then assign the macro to the button.