Koding Mengirim Email Dari Acess Menggunakan VBA Access

 Untuk mengirim email dari Microsoft Access menggunakan Visual Basic for Applications (VBA), Anda dapat menggunakan kode seperti ini:

Sub KirimEmail()

    'Deklarasikan variabel

    Dim objOutlook As Object

    Dim objEmail As Object

    'Buat objek Outlook dan email

    Set objOutlook = CreateObject("Outlook.Application")

    Set objEmail = objOutlook.CreateItem(0)

    'Tentukan pengirim, penerima, dan subjek email

    objEmail.To = "alamat@email.com"

    objEmail.Subject = "Subject Email"

    'Tentukan isi email

    objEmail.Body = "Isi Email"

    'Lampirkan file jika diperlukan

    objEmail.Attachments.Add "C:\LokasiFile\NamaFile.xlsx"

    'Kirim email

    objEmail.Send

End Sub

Anda dapat mengganti alamat@email.com, Subject Email, dan Isi Email sesuai dengan pengirim, penerima, dan isi email yang diinginkan. Selain itu, jika Anda ingin melampirkan file, Anda dapat menambahkan baris objEmail.Attachments.Add "C:\LokasiFile\NamaFile.xlsx" dan mengganti C:\LokasiFile\NamaFile.xlsx dengan lokasi dan nama file yang ingin Anda lampirkan.

Terimakasih

Tweet

Subscribe to receive free email updates: