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 melalui Outlook apabila buku kerja disimpan dalam Excel?

Artikel ini bercakap tentang menghantar e-mel melalui Outlook apabila buku kerja tertentu disimpan dalam Excel. Sila lakukan seperti yang ditunjukkan dalam tutorial.

Hantar e-mel melalui Outlook apabila buku kerja disimpan dengan kod VBA


Hantar e-mel melalui Outlook apabila buku kerja disimpan dengan kod VBA


Untuk menghantar e-mel melalui Outlook apabila buku kerja disimpan dalam Excel, sila lakukan seperti berikut.

1. Sila simpan buku kerja sebagai Excel Workbook yang dimulakan Excel. Klik File > Save As. Di dalam Save As kotak dialog, pilih folder untuk menyimpan buku kerja, namakannya dalam kotak Nama fail, pilih Buku Kerja Excel Excel-Enabled daripada Simpan sebagai jenis senarai juntai bawah, dan kemudian klik Simpan butang. Lihat tangkapan skrin:

2. Buka buku kerja Excel Makro-Enabled yang telah anda simpan sekarang sahaja, tekan Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik dua kali ThisWorkbook di bar kiri, kemudian salin dan tampal di bawah kod VBA ke dalam ThisWorkbook tetingkap kod. Lihat tangkapan skrin:

Kod VBA: Hantar e-mel apabila buku kerja disimpan

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Nota: Sila gantikan Alamat emel dengan alamat e-mel penerima dalam talian .To = "Alamat E-mel", dan ubah Cc, Subjek serta medan badan dalam kod VBA yang anda perlukan.

3. Tekan butang Alt + Q kunci pada masa yang sama untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap.

Mulai sekarang, apabila anda mengemas kini buku kerja dan menyimpannya, e-mel akan dibuat secara automatik dengan buku kerja yang dikemas kini. Sila klik menghantar butang untuk menghantar e-mel. Lihat tangkapan skrin:

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.
    Chris · 8 months ago
    Hi, nice article! One thing ive been trying to achieve with this is to attach the current state of the workbook to the email.

    At the moment, it only sends the original state of the file and doesnt include any changes the user would have made.

    Any ideas on how to implement this using a macro?
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi Chris,
      The code has been updated with the problem solved, please have a try. Thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Tin Hwee Lee · 2 months ago
        Hi Chris,

        I have chanced upon the same issue.
        Currently the codes are used in the "beforesave" module.
        Which means that the email will send the spreadsheet that is before saved.

        There is another module "aftersave".
        I applied the code in this module and it worked like a charm.
  • To post as a guest, your comment is unpublished.
    Robert · 9 months ago
    Dear all, I would like to ask how to attach functional link to certain folder on server, if I paste the link, it appears in the workbook just like plain text and so it doensn't work in received e-mail, how can I turn it into link, so recepiants can click on it?
    I would like to use this way instead sending enclosed excel file.
    Thanks for advice
    • To post as a guest, your comment is unpublished.
      Grant · 3 months ago
      I put this in the body of the email and it worked for me...
      "file:///Z:\dir1\dir2\dir3\Test1.xlsm"
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Hi Robert,
      Sorry can’t help with this, welcome to post any question about Excel to our forum: https://www.extendoffice.com/forum.html. You will get more Excel supports from our professional or other Excel fans.
  • To post as a guest, your comment is unpublished.
    Antonio · 11 months ago
    Gracias. Consulta: utilizando esta misma rutina, como podría enviar el correo a un correo específico dependiendo el valor de otra celda?
  • To post as a guest, your comment is unpublished.
    Jermaine · 1 years ago
    How to automate the email notification in VBA based on Date range, without having to see the pop up for security permission to allow VBA to send the email.