Merhaba Amanda!
Bu Ryan4'ten ExtendOffice. Sorunumu çözmeye yardımcı olmak için e-posta adresinizi gönderdiğiniz için teşekkür ederim, harika topluluğunuzu keşfettiğimden beri aktif bir üye olmayı planlıyorum, bu yüzden dosya yükleme sorunlarımı sonunda çözmeyi umuyorum!
Şimdilik, lütfen ekli dosyaya buradan bakın. Kodu "End if" yerine "Exit Sub" okuyacak şekilde güncelledim, ancak yine de hata ayıklama seçeneği olmayan bir hata alıyorum. Tavsiye verebilirmisin? Belki de benim yapım veya girintidir.
Yardımınız için tekrar teşekkürler!
Ryan
Merhaba Ryan
E-posta mesajı alındı. Aynı sorunu yaşayan başka kullanıcılar da olabileceği için buradan cevaplayayım.
Lütfen aşağıdaki yöntemi deneyin:
1. Açık
Referans.
2. Kontrol
Microsoft Outlook 16.0 Nesne Kitaplığı.
Not: 16.0 yerine 15.0, 14.0 vb. olabilir.
3. Aşağıdaki kodu değiştirin
Dim xOutApp As Object
Dim xOutMail As Object
için
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Lütfen yukarıdaki 3 adımı deneyin. vba'nız bilgisayarlarımızda sorunsuz çalıştığından, sorunu yeniden oluşturmamız zor. Umarım bu yöntem size yardımcı olur!
Amanda