Bagaimana cara mengirim email jika tombol diklik di Excel?

Misalkan Anda perlu mengirim email melalui Outlook dengan mengklik tombol di lembar kerja Excel, bagaimana Anda bisa melakukannya? Artikel ini akan memperkenalkan metode VBA untuk mencapainya secara detail.

Kirim email jika tombol diklik dengan kode VBA

Kirim email jika tombol diklik dengan kode VBA

Harap lakukan hal berikut untuk mengirim email melalui Outlook jika Tombol Perintah diklik di buku kerja Excel.

1. Sisipkan Tombol Perintah di lembar kerja Anda dengan mengklik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX). Lihat tangkapan layar:

2. Klik kanan Tombol Perintah yang dimasukkan, lalu klik Lihat kode dari menu klik kanan seperti tampilan screenshot di bawah ini.

3. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, harap ganti kode asli di jendela Kode dengan skrip VBA berikut.

Kode VBA: Kirim email jika tombol diklik di Excel

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

Catatan:

1). Harap ubah badan email sesuai kebutuhan di xMailBody baris dalam kode.

2). Ganti Alamat email dengan alamat email penerima sejalan .To = "Alamat Email".

3). Tentukan penerima Cc dan Bcc yang Anda perlukan .CC = “” dan .Bcc = “” bagian.

4). Ubah subjek email sesuai .Subject = "Uji pengiriman email dengan mengklik tombol".

4. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

5. Matikan Mode Desain dengan mengklik Pengembang > Mode Desain. Lihat tangkapan layar:

Mulai sekarang, setiap kali Anda mengklik Tombol Perintah, email akan dibuat secara otomatis dengan penerima, subjek, dan isi yang ditentukan. Silakan kirim email dengan mengklik Kirim .

Note: Kode VBA hanya berfungsi saat Anda menggunakan Outlook sebagai program email Anda.

Artikel terkait:

• Bagaimana cara mengirim email secara otomatis berdasarkan nilai sel di Excel?
• Bagaimana cara mengirim email melalui Outlook saat buku kerja disimpan di Excel?
• Bagaimana cara mengirim email jika sel tertentu diubah di Excel?
• Bagaimana cara mengirim email jika tanggal jatuh tempo sudah terpenuhi di Excel?
• Bagaimana cara mengirim pengingat atau pemberitahuan email jika buku kerja diperbarui di Excel?