Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghantar e-mel dengan menyalin dan menampal jarak tertentu ke dalam badan e-mel dalam Excel?

Dalam banyak kes, julat kandungan tertentu dalam lembaran kerja Excel mungkin berguna dalam komunikasi e-mel anda. Dalam artikel ini, kami akan memperkenalkan kaedah menghantar e-mel dengan jarak tertentu yang dimasukkan ke dalam badan e-mel secara langsung di Excel.

Hantar e-mel dengan julat tertentu yang dimasukkan ke dalam badan e-mel dalam Excel


Hantar e-mel dengan julat tertentu yang dimasukkan ke dalam badan e-mel dalam Excel


Kod VBA berikut boleh membantu anda menyalin julat dan tampalnya ke dalam badan e-mel secara langsung di Excel. Sila buat seperti berikut.

1. Dalam lembaran kerja mengandungi julat yang anda perlukan untuk menyalin, tekan Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik Alatan > Rujukan seperti gambar di bawah yang ditunjukkan.

3. Di dalam Rujukan - VBAProject kotak dialog, sila cari dan semak Perpustakaan Objek Microsoft Outlook pilihan, dan kemudian klik OK butang.

4. klik Memasukkan > Modul, kemudian salin dan tampal kod VBA di bawah ke dalam tetingkap Modul.

Kod VBA: Hantar e-mel dengan julat tertentu yang dimasukkan ke dalam badan e-mel dalam Excel

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

Nota:

1). Sila tukar badan e-mel dalam talian xEmailBody = "Hi" & vbLf & vbLf & "badan mesej yang anda mahu tambahkan" & vbLf & vbLf & xEmailBody & vbNewLine seperti yang anda perlukan.

2). Sila nyatakan penerima dan subjek e-mel anda .o = happy.xuebi@163.com dan .Subject = "test" baris dalam kod.

5. Tekan butang F5 kunci untuk menjalankan kod. Dalam bermunculan Kutools untuk Excel kotak dialog, sila pilih julat yang anda perlu tampal dalam badan e-mel, dan kemudian klik OK butang. Lihat tangkapan skrin:

6. Sekarang e-mel dibuat dengan penerima tertentu, subjek, badan dan julat Excel yang dipilih, sila klik menghantar butang untuk menghantar e-mel ini. Lihat tangkapan skrin yang ditunjukkan.

Nota: Kod VBA hanya berfungsi apabila anda menggunakan Outlook sebagai program e-mel anda.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.
    sachin kumr · 1 months ago
    this is pasting as a text. Kindly suggest how to send the table or the same format which is copied from the excel.
  • To post as a guest, your comment is unpublished.
    miguel · 2 months ago
    Code to send automatically after selecting after ok
  • To post as a guest, your comment is unpublished.
    Dhiraj Mahajan · 4 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 · 3 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.
        Dhiraj Mahajan · 1 months ago
        Hi, Is there any update on below.......
        • To post as a guest, your comment is unpublished.
          Dhiraj Mahajan · 1 months ago
          Hi, Also I Wanted code for "Filter by Date".
          I am working on project, on that project I wanted to filter the data by the date, actually we have filter/hide the and last 05 days to current date data and we have highlight all other data.
          Please help me to complete this project.
          Your help is very great-full for me.
  • To post as a guest, your comment is unpublished.
    Anirudh · 8 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 · 9 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 · 8 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.