Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menerapkan tombol untuk mengirim email dengan file Word saat ini terlampir? 

Jika Anda perlu mengirim pesan email dari dokumen Word melalui Outlook, dan melampirkan file Word saat ini juga, Anda dapat membuat tombol perintah, lalu mengirim pesan dengan mengklik tombol ini tanpa membuka Outlook. Artikel ini, saya akan memperkenalkan cara menghadapinya dengan cepat dan mudah.

Terapkan tombol untuk mengirim email dengan file Word saat ini terlampir


Terapkan tombol untuk mengirim email dengan file Word saat ini terlampir

Silakan lakukan dengan langkah-langkah berikut untuk menyelesaikan pekerjaan ini di file Word:

1. Pertama, Anda harus membuat tombol perintah, silakan klik Pengembang > Alat Lawas > Tombol Perintah (Kontrol ActiveX), lihat tangkapan layar:

tombol doc untuk mengirim email 1

2. Pilih tombol, dan klik Properties bawah Pengembang tab, di Properties panel, ketikkan teks keterangan yang Anda butuhkan ke dalam Keterangan lapangan, lihat tangkapan layar:

tombol doc untuk mengirim email 2

3. Kemudian, tutup Properties panel, sekarang, klik kanan tombol, dan pilih Lihat kode, lihat tangkapan layar:

tombol doc untuk mengirim email 3

4. Dan kemudian, di layar Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode di bawah ini antara skrip asli, lihat tangkapan layar:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

tombol doc untuk mengirim email 4

Note: Dalam kode di atas, Anda harus mengubah subjek, isi teks atau alamat yang dikirim sesuai kebutuhan Anda.

5. Kemudian, simpan dan tutup kode ini, klik Mode Desain untuk mematikan mode desain. Sekarang, ketika mengklik tombol perintah yang telah Anda buat, email akan dibuat dengan dokumen Word saat ini sebagai lampiran, lihat tangkapan layar:

tombol doc untuk mengirim email 5

6. Terakhir, Anda hanya perlu mengklik Kirim tombol untuk mengirim pesan ini.


Alat Produktivitas Kata yang Direkomendasikan

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...
Urutkan komentar berdasarkan
komentar (29)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba mengirim email dengan baris subjek sebagai isi dari salah satu bidang saya. Apakah ini mungkin?
Komentar ini diminimalkan oleh moderator di situs
Halo, saya dapat meminta untuk yang arsipnya akan disimpan ke PDF dan akan ditambahkan ke arsip kata demi kebaikan.
Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Hai Tim Perpanjangan Kantor,

Saya percaya 'xEmile' salah eja. Seharusnya 'xEmail'.

Saat kode berjalan dan tidak ada masalah, pernyataan berikut tidak akan melakukan apa pun:

Setel xEmail = Tidak Ada
Komentar ini diminimalkan oleh moderator di situs
Hai, Abhi,
Terima kasih atas komentar Anda, seperti yang Anda katakan, 'xEmile' salah eja, seharusnya 'xEmail'. Saya telah memperbarui kode.
Terima kasih lagi!
Komentar ini diminimalkan oleh moderator di situs
Bisakah ini dilakukan sehingga Anda hanya mengirim satu halaman dokumen?
Komentar ini diminimalkan oleh moderator di situs
Halo, Don,
Untuk menangani tugas Anda, silakan terapkan kode di bawah ini,dalam kode, Anda harus mengubah halaman awal dan halaman akhir menjadi milik Anda sendiri:

Sub CommandButton1_Click Pribadi ()

Dim xCurPageMulai Selamanya, xCurPageEnd Selamanya, xCurPageRange Sebagai Rentang

Redupkan xCurPage Sebagai Integer, xPages Sebagai Integer

Redupkan xOutlookObj Sebagai Objek

Redupkan xEmail Sebagai Objek

Redupkan xDoc Sebagai Dokumen, xNewDoc Sebagai Dokumen

Redupkan xFilePath Sebagai String

Redup xOldMulai Selamanya, xOldEnd Selama

On Error Resume Next

Application.ScreenUpdating = Salah

Setel xOutlookObj = CreateObject("Outlook.Application")

Setel xEmail = xOutlookObj.CreateItem(olMailItem)

xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)

Setel xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Simpan

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'file terlampir adalah nama file lampiran, ubah sesuai kebutuhan Anda

xCurPageStart = 2 'halaman awal

xCurPageEnd = 2 'halaman akhir

xPages = Seleksi.Informasi(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(what:=wdGoToPage, Yang:=wdGoToNext, Name:=xCurPageStart).Start

Jika xCurPage = xPages Maka

xCurPageEnd = ActiveDocument.Content.End

Lain

xCurPageEnd = Selection.GoTo(what:=wdGoToPage, Yang:=wdGoToNext, Name:=xCurPageEnd + 1).Start

End If

Setel xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Pilih

xCurPageRange.Copy

Setel xNewDoc = Application.Documents.Add(Visible:=False)

xNewDoc.Aktifkan

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Tutup

xDoc.Range(xOldStart, xOldEnd).Pilih

Dengan xEmail

.Subjek = "Data faks"

.Body = "Ini adalah email percobaan."

.Ke = "yy@addin99.com"

.Kepentingan = olImportanceNormal

.Lampiran.Tambahkan xFilePath

.Tampilan

Berakhir dengan

VBA.Bunuh xFilePath

Setel xDoc = Tidak Ada

Setel xEmail = Tidak Ada

Setel xOutlookObj = Tidak Ada

Application.ScreenUpdating = Benar

End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya telah membuat formulir yang dapat diisi di MS Word. Saya telah menggunakan alat warisan untuk perhitungan dll. Saya juga telah menambahkan tombol kirim yang berfungsi untuk mengirim formulir ke email. Masalahnya adalah ketika saya membuka kembali dokumen ini setelah disimpan, itu tidak berfungsi. Saya bahkan telah mencoba menyimpannya sebagai dokumen yang diaktifkan makro tetapi tidak ada gunanya. Bisakah Anda membantu?
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Saya membuatnya bekerja pada awalnya, dan kemudian untuk beberapa alasan sekarang, itu memberi saya kesalahan kesalahan 429 tentang komponen activeX tidak dapat membuat objek. saya benar-benar hanya menyalin dan menempel. Ini berfungsi sebelumnya tetapi saya baru saja mengubah ukuran font, membuat tombol lebih besar, dan memberi label ulang keterangan. saya rasa saya tidak sengaja mengubah beberapa pengaturan lain? tahu apa itu bisa?
Komentar ini diminimalkan oleh moderator di situs
Hai! Saya ingin membuat tombol perintah mengirim email dengan dokumen Word sebagai badan email (dokumen kata saya adalah formulir). Apakah ada cara untuk melakukan itu?
Komentar ini diminimalkan oleh moderator di situs
Saya ingin dokumen saya dikirim sebagai dokumen PDF daripada dokumen kata.
Komentar ini diminimalkan oleh moderator di situs
Misalnya menggunakan teks dari kotak teks/bidang teks di dokumen Word, dan menyisipkannya sebagai teks di baris subjek E-mail Anda?
Komentar ini diminimalkan oleh moderator di situs
Ya, ini juga yang saya cari, adakah yang bisa membantu dengan permintaan ini?
Komentar ini diminimalkan oleh moderator di situs
Apakah ini juga berfungsi untuk Lotus Notes?
Apa yang harus saya ubah di "xOutlookObj"?
Komentar ini diminimalkan oleh moderator di situs
Hai Kantor Perpanjangan,
Bisakah kita mengatur email lain yang tidak ditautkan ke Outlook? Suka email langsung ke akun GoDaddy?
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba mencari informasi yang sama. Saya menggunakan gmail dan saya perlu membuat formulir untuk dikirim ke berbagai alamat email berbeda yang dapat secara otomatis mengirimkan kembali ke akun gmail saya.
Komentar ini diminimalkan oleh moderator di situs
Saya telah membuat dokumen tetapi masalah saya sekarang adalah jika saya mengirim formulir ini untuk mengatakan 4 orang untuk menyelesaikannya, ketika mereka membukanya dari lampiran email, itu terbuka dalam mode hanya baca dan ketika mereka mengklik kirim itu meminta mereka untuk menyimpan seperti sebelumnya itu akan memungkinkan kode untuk membuka email yang ditujukan kepada saya. Apakah ada cara lain selain memberi mereka lokasi file?
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda menambahkan Bcc ke kode ini? Saya telah mencoba menambahkan Bcc dan menerima kesalahan kompilasi untuk ekspresi yang diharapkan.
Komentar ini diminimalkan oleh moderator di situs
Halo Heather,

Anda dapat menambahkan Bcc ke kode ini. Misalnya, Anda dapat menambahkan .Bcc = "zmt@addin99.com" tepat di bawah .To = "yy@addin99.com". Jadi kodenya menjadi:

Redupkan xOutlookObj Sebagai Objek
Redupkan xEmail Sebagai Objek
Redupkan xDoc Sebagai Dokumen
Application.ScreenUpdating = Salah
Setel xOutlookObj = CreateObject("Outlook.Application")
Setel xEmail = xOutlookObj.CreateItem(olMailItem)
Setel xDoc = ActiveDocument
xDoc.Simpan
Dengan xEmail
.Subjek = "Data faks"
.Body = "Ini adalah email percobaan."
.Ke = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Kepentingan = olImportanceNormal
.Lampiran.Tambahkan xDoc.Nama Lengkap
.Tampilan
Berakhir dengan
Setel xDoc = Tidak Ada
Setel xEmail = Tidak Ada
Setel xOutlookObj = Tidak Ada
Application.ScreenUpdating = Benar

Silakan lihat gambar terlampir. Semoga harimu menyenangkan.
Hormat kami,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Komentar ini diminimalkan oleh moderator di situs
Halo teman-teman,

Saya ingin menerapkan tombol tempat saya mengklik dan mengirim dokumen sebagai email, bukan sebagai lampiran, ke satu Alamat Email. Sehingga dokumen tersebut adalah teks dari email tersebut. Sama seperti efek tombol "kirim ke penerima" pada pita.

Dapatkah seseorang memberi saya kode yang tepat untuk itu?

Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Halo,
Mungkin kode tidak dapat membantu untuk mengirim dokumen kata saat ini sebagai badan email, jika melakukannya, gambar dan format file di dalam dokumen akan hilang.
Jika Anda ingin mengirim dokumen saat ini sebagai badan email, Gabungan Surat dapat membantu Anda.
Apakah Anda memerlukan Gabungan Surat untuk mengirim email?
Jika Anda membutuhkan, silakan komentar di sini.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo,

Terima kasih untuk bantuannya!

Saya akan mencobanya dengan saran Anda. Jadi ya, saya memerlukan Gabungan Surat untuk mengirim E-Mail.
Komentar ini diminimalkan oleh moderator di situs
Halo,

Terima kasih untuk bantuannya!

Saya akan mencobanya dengan saran Anda. Bisakah Anda memberi saya kode untuk gabungan surat?

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo,
Untuk mengirim dokumen kata saat ini sebagai badan surat, Anda dapat menambahkan Kirim ke Penerima Email perintah untuk Anda QAT, lakukan seperti ini:
1. Buka file word yang ingin Anda kirim, lalu klik File > Opsi.
2. Di panel kiri, pilih Quick Access Toolbar.
3. Memilih Perintah Tidak di Pita dari Pilih perintah dari.
4. Pilih dan pilih Kirim ke Penerima Email dan klik tombolnya Tambahkan>>.
5. klik OK untuk menutup dialog
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Sekarang ini Kirim ke Penerima Email perintah akan muncul di Quick Access Toolbar di bagian atas jendela Word Anda. Kemudian, Anda dapat memasukkan informasi relatif ke dalam header pesan. Setelah menyelesaikan informasi, silakan klik Kirim salinan, pesan dengan dokumen kata saat ini sebagai badan akan dikirim sekaligus.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

Silakan coba ini, semoga dapat membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Saya telah menemukan tombol berfungsi untuk membuka email tetapi ketika menggunakan mailmerge tombol VBA menjadi tidak aktif karena alasan tertentu?
Bagaimana saya bisa memastikan ketika penggabungan surat digunakan, tombol akan berfungsi bagi pengguna untuk melengkapi formulir dan kemudian mengaktifkan tombolnya?
Komentar ini diminimalkan oleh moderator di situs
Halo, Mike,
Saat saya menggunakan fitur mailmerge, tombolnya aktif.
Bisakah Anda menjelaskan masalah Anda lebih detail?
Atau Anda dapat mengunggah file Anda di sini, sehingga kami dapat memeriksa di mana masalahnya.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai Skyyang,

Silakan lihat posting yang saya taruh di bawah ini yang memiliki salinan terlampir.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Silakan lihat dokumen terlampir di bawah ini.
Saya perlu memperbaruinya untuk penggunaan pembaruan 2023 dan saat menggabungkan tombol tampaknya dinonaktifkan karena beberapa anggota mengatakan kepada saya bahwa itu tidak berfungsi.

Terima kasih,

Mike
Komentar ini diminimalkan oleh moderator di situs
Halo, Mike,
Saya telah menguji file Anda di komputer saya, itu bekerja dengan baik. Saya menggunakan Office 2019. Silakan lihat demo di bawah ini:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Komentar ini diminimalkan oleh moderator di situs
Hai Skyyang,

Saya menemukan ini berfungsi ketika pengguna memiliki MS Word tetapi sepertinya email seperti @hotmail; @gmail; dan alamat email @live para pengguna mengalami masalah di mana tombol tidak berfungsi?
Tampaknya itu juga tidak berfungsi pada ponsel pintar jika pengguna mengandalkan ini sebagai lawan dari komputer.
Terakhir saya mendapat tanggapan dari pengguna lain yang menggunakan Windows 11 di mana tombolnya tidak berfungsi sama sekali.

Apa yang telah Anda alami dengan contoh di atas?

Terima kasih,

Mike
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL