Assalamu'alaikum Wr. Wb.

Saya memiliki kesulitan untuk mengirim slipgaji melalui email, maklum belajarnya atau copas dari youtube dan ini vbanya ;
Sub KirimEmail(AkunPengirim, PasswordPengirim, AkunTujuan, Judul, IsiEmail, Lampiran As String)

On Error GoTo Err

Dim EmailBaru As Object
Dim PengaturanEmail As Object
Dim fields As Variant
Dim URLKonfigurasi As String

Set EmailBaru = CreateObject("CDO.Message")
Set PengaturanEmail = CreateObject("CDO.Configuration")

' load konfigurasi default
PengaturanEmail.Load -1

Set fields = PengaturanEmail.fields

'Pengaturan semua kelengkapan email

With EmailBaru
.Subject = Judul
.From = AkunPengirim
.To = AkunTujuan
.CC = "" 'Tulis alamat email tembusan (jika dibutuhkan)
.BCC = "" 'Tulis alamat email tembusan (jika dibutuhkan)
.textbody = IsiEmail
.AddAttachment Lampiran

End With

URLKonfigurasi = "http://schemas.microsoft.com/cdo/configuration"

With fields
'Mengaktifkan SSL Authentication
.Item(URLKonfigurasi & "/smtpusessl") = True

'Mengaktifkan SMTP authentication Enabled=true (1)
.Item(URLKonfigurasi & "/smtpauthenticate") = 1

'Pengaturan server & port SMTP server
.Item(URLKonfigurasi & "/smtpserver") = "smtp.gmail.com"
.Item(URLKonfigurasi & "/smtpserverport") = 465
.Item(URLKonfigurasi & "/sendusing") = 2

'Pengaturan username dan password akun Gmail pengirim
.Item(URLKonfigurasi & "/sendusername") = AkunPengirim
.Item(URLKonfigurasi & "/sendpassword") = PasswordPengirim

'Update hasil konfigurasi
.Update

End With
EmailBaru.Configuration = PengaturanEmail
EmailBaru.Send

Exit_Err:

Set EmailBaru = Nothing
Set PengaturanEmail = Nothing
Exit Sub

Err:
Select Case Err.Number

Case -2147220973 'Kemungkinan kesalahan karena masalah koneksi internet
MsgBox "Tidak ada koneksi internet, atau koneksi internet anda bermasalah!! -- " & Err.Description

Case -2147220975 'Kesalahan memasukkan User ID atau password
MsgBox "Username atau Password salah atau tidak cocok!! -- " & Err.Description

Case Else 'Kesalahan lain
MsgBox "Terjadi kesalahan ketikan mengirim email!! -- " & Err.Description
End Select

Resume Exit_Err

End Sub

Sub ExportKirim()

Dim Id_Kar, Nama, Bulan, pengirim, pass, penerima, judulpesan, isi, fileslipgaji As String
Dim JmlKaryawan, i As Integer

If MsgBox("Semua slip gaji karyawan akan di-export ke file PDF dan dikirim ke akun e-mail setiap karyawan." + vbNewLine + "Lanjutkan proses export & kirim email?", vbYesNo + vbQuestion, "Konfirmasi Export & Kirim") = vbYes Then
Bulan = Range("I2").Value
JmlKaryawan = Range("N2").Value
Awal
For i = 1 To JmlKaryawan
Id_Kar = Range("C6").Value
Nama = Range("C7").Value
Konversi (Id_Kar)

'----- KETIK NAMA AKUN GMAIL PENGIRIM -----
pengirim = "namaakun@gmail.com"
' ----- KETIK PASSWORD AKUN GMAIL PENGIRIM -----
pass = "**********"

penerima = Range("N3").Value
judulpesan = "Slip Gaji " + Bulan + "-" + Nama
isi = "Slip Gaji " + Bulan + "-" + Nama
fileslipgaji = "D:\Upload Youtube\Slip Gaji E-mail\SG-" + Bulan + "-" + Id_Kar + ".pdf"

Call KirimEmail(pengirim, pass, penerima, judulpesan, isi, fileslipgaji)
Berikutnya
Next

MsgBox ("Semua Slip Gaji telah berhasil dikirim!")
End If
End Sub
pada saat klik tombol kirim email, muncul di scripnya Konversi (Id_Kar), berubah menjadi warna kuning, padahal pada video youtubenya berhasil terkirim ke email, tetapi saat saya gunakan tidak sesuai yang ada pada videonya.

sebelumnya saya mengucapkan terima kasih.

Wassalam
Samsudin

Terima kasih atas jawabannya, ini adalah file yang sudah jadi, tetapi di videonya file tersebut bisa terkirim ke email yang dituju, saya hanya menganti pada script nama akun gmail dan pass, tetapi saat di operasikan di laptop saya tidak bisa terkirim ke email yang dituju. pada script Konversi (Id_Kar) berubah menjadi warna kuning

Sekarang malah ada peringatan "Terjadi Kesalahan Ketikan mengirim email!!! -- The System cannot Find the file specified.

Terima kasih, file tersebut sudah ada di foldernya sesuai dengan scriptnya, tetapi tetap tidak bisa terkirim emailnya