Kirim Email Laporan Otomatis (VBA) untuk wedding planner

Kirim Email Otomatis untuk wedding planner

Tema: Wedding Planner dan Anggaran PernikahanFitur: OtomasiTingkat: MahirDengan makro VBA

0 kali dilihat

Makro membuat email lewat Outlook berisi ringkasan total dan melampirkan berkas. Alamat tujuan dan subjek dibaca dari sel Dashboard.

Kirim Email Laporan Otomatis (VBA) untuk wedding planner: pratinjau workbook

Info proyek

TemaWedding Planner dan Anggaran Pernikahan
FiturOtomasi · Mahir
PerangkatExcel
Harga (satu harga)Rp 600.000

Fungsi yang dipakai

VBA
Outlook
CreateObject
Attachment
SUMIFS

Laporan berkala terkirim tanpa menulis email manual.

Berkas proyek yang bisa Anda unduh

Berkas proyek aslinya tersedia. Bukan sekadar gambar di atas: Anda mendapat berkas kerja dengan semua rumus terpasang. Berkas bisa diunduh setelah pembayaran, dan tautan unduhnya kami kirim lewat WhatsApp atau email.

ZIP: workbook .xlsx + modul makro VBA (.zip)

Isi berkas

Berkas Excel (.xlsx) lengkap dengan lembar Data, Master, Rekap, dan Dashboard
Rumus yang sudah terpasang dan siap diganti dengan data Anda
Lembar Panduan berisi langkah pakai, penjelasan rumus, dan tips
Modul makro VBA terpisah (Modul_Makro.bas) untuk diimpor lewat Alt+F11, dibungkus dalam satu berkas ZIP

Berkas proyek: Berkas proyek asli (bukan hanya gambar) tersedia dan dapat diunduh setelah pembayaran lunas; kami kirim tautan unduhnya lewat WhatsApp atau email
Pembayaran: Satu harga per proyek, dibayar penuh di muka; berkas dikirim setelah pembayaran diterima
Pajak: Harga belum termasuk PPN 11%
Penyesuaian: Penyesuaian ke data atau format khusus Anda dapat dipesan terpisah lewat WhatsApp

Rumus di dalam berkas

Sel	Rumus	Keterangan
J2	`="Ringkasan "&TEXT(TODAY(),"dd mmmm yyyy")`	Subjek email otomatis.
J3	`=SUM(Data!G:G)`	Total yang disebut di isi email.
J4	`=COUNTIFS(Data!F:F,Rekap!B2)`	Jumlah transaksi berstatus pertama.

Langkah memakai

1Isi Dashboard J5 dengan alamat email penerima.
2Pastikan Microsoft Outlook terpasang dan sudah login.
3Import modul .bas lalu hubungkan makro KirimEmail ke sebuah tombol.
4Klik tombol, jendela email terbuka dengan lampiran.
5Ganti .Display menjadi .Send bila ingin terkirim langsung.

Kode makro VBA

Modul makro dikirim sebagai berkas Modul_Makro.bas terpisah di dalam ZIP. Impor lewat Alt+F11. Cuplikan singkatnya:

Tampilkan kode

Sub KirimEmail()
    Dim ol As Object, mi As Object, ws As Worksheet, tmp As String
    Set ws = ThisWorkbook.Sheets("Dashboard")
    If ws.Range("J5").Value = "" Then MsgBox "Isi alamat email di J5.": Exit Sub
    tmp = ThisWorkbook.Path & "\Kirim_" & Format(Date, "yyyymmdd") & ".xlsx"
    ThisWorkbook.SaveCopyAs tmp
    On Error GoTo gagal
    Set ol = CreateObject("Outlook.Application")
    Set mi = ol.CreateItem(0)
    With mi
        .To = ws.Range("J5").Value
        .Subject = ws.Range("J2").Value
        .Body = "Halo," & vbCrLf & "Total transaksi: " & Format(ws.Range("J3").Value, "#,##0") & vbCrLf & "Terlampir berkas lengkap."
        .Attachments.Add tmp
        .Display
    End With
    Exit Sub
gagal:
    MsgBox "Outlook tidak tersedia: " & Err.Description, vbCritical
End Sub

Isi contoh

Kolom pada lembar Data:

Pos Pernikahan
Kategori
Jumlah
Harga
Status
Tanggal

Item pada lembar Master

Pos Pernikahan	Harga
Sewa Gedung	25.000.000
Katering per Porsi	85.000
Dekorasi Pelaminan	12.000.000
Rias dan Busana Pengantin	8.000.000
Fotografer dan Videografer	9.000.000
Cincin Kawin	7.500.000
Undangan Cetak	4.500
MC dan Hiburan	3.500.000
Souvenir Tamu	6.500
Wedding Organizer	10.000.000

Dashboard: Dasbor Anggaran Pernikahan

Total Anggaran
Sudah Dibayar
Sisa Tagihan
Jumlah Pos Selesai

Tips

Tetapkan batas anggaran sebelum survei vendor
Catat DP dan tanggal pelunasan tiap vendor
Hitung jumlah tamu lebih dulu karena memengaruhi banyak biaya

Data contoh bersifat sintetis.

Harga dan pemesanan

Rp 600.000

Satu harga untuk seluruh berkas proyek, belum termasuk PPN 11%

Pesan berkas via WhatsApp

Pertanyaan umum

Apakah saya mendapat berkas aslinya?

Ya. Gambar di atas hanya pratinjau. Setelah pembayaran, kami mengirim tautan unduh berkas proyek yang asli (ZIP berisi workbook .xlsx dan modul makro) lewat WhatsApp atau email.

Apakah data di dalam berkas itu data asli?

Bukan. Data contoh bersifat sintetis dan hanya memperlihatkan cara kerja rumusnya. Ganti dengan data Anda sendiri, rumusnya tetap bekerja.

Bisakah disesuaikan dengan data saya?

Bisa, sebagai pesanan terpisah. Kirim pesan lewat WhatsApp berisi gambaran singkat kolom data Anda dan hasil yang Anda inginkan.

Proyek serupa

Lihat semua

SebelumnyaProteksi Sel dan Templat Cetak untuk hutang dan piutang

BerikutnyaKalender dan Gantt Otomatis untuk wedding planner

Data contoh bersifat sintetis. Excel adalah merek dagang Microsoft Corporation.

Kembali ke portofolio Excel

Memuat

Kirim Email Laporan Otomatis (VBA) untuk wedding planner