Halo Amanda!
Ini Ryan4 dari ExtendOffice. Terima kasih telah mengirimkan alamat email Anda untuk membantu memecahkan masalah saya, saya berniat untuk menjadi anggota aktif sejak menemukan komunitas Anda yang luar biasa, jadi saya berharap masalah pengunggahan file saya dapat diselesaikan pada akhirnya!
Untuk saat ini, silakan lihat file terlampir di sini. Saya memang memperbarui kode untuk membaca "Keluar Sub" alih-alih "Akhiri jika," namun saya masih menerima kesalahan tanpa opsi debug. Bisakah Anda memberi saran? Mungkin itu adalah struktur atau indentasi saya.
Terima kasih lagi atas bantuan Anda!
Ryan
Hai Ryan,
Email yang dikirim diterima. Karena mungkin ada pengguna lain yang memiliki masalah yang sama, saya akan menjawab di sini.
Silakan coba cara di bawah ini:
1. Buka
Referensi.
2. Memeriksa
Perpustakaan Objek Microsoft Outlook 16.0.
Catatan: Alih-alih 16.0, Anda mungkin memiliki 15.0, 14.0, dll.
3. Ganti kode di bawah ini
Dim xOutApp As Object
Dim xOutMail As Object
untuk
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Silakan coba 3 langkah di atas. Karena vba Anda berfungsi dengan baik di komputer kami, jadi sulit bagi kami untuk mereproduksi masalahnya. Semoga metode ini akan membantu Anda!
Amanda