Γεια σου Amanda!
Αυτό είναι το Ryan4 από ExtendOffice. Σας ευχαριστώ που στείλατε τη διεύθυνση email σας για να βοηθήσετε στην επίλυση του προβλήματός μου, σκοπεύω να γίνω ενεργό μέλος από τότε που ανακάλυψα τη φανταστική κοινότητά σας, επομένως ελπίζω να επιλυθούν τελικά τα προβλήματα μεταφόρτωσης αρχείων!
Προς το παρόν, δείτε το συνημμένο αρχείο εδώ. Ενημέρωσα τον κώδικα για να διαβάσει το "Exit Sub" αντί για το "End if", ωστόσο εξακολουθώ να λαμβάνω ένα σφάλμα χωρίς επιλογή εντοπισμού σφαλμάτων. Μπορείτε να συμβουλεύσετε; Ίσως είναι η δομή ή η εσοχή μου.
Ευχαριστώ και πάλι για τη βοήθειά σας!
Ryan
Γεια σου Ryan,
Λήφθηκε μήνυμα ηλεκτρονικού ταχυδρομείου. Επειδή μπορεί να υπάρχουν και άλλοι χρήστες που έχουν το ίδιο πρόβλημα, θα απαντήσω εδώ.
Δοκιμάστε την παρακάτω μέθοδο:
1. ανοιχτό
Αναφορά.
2. Ελεγχος
Βιβλιοθήκη αντικειμένων Microsoft Outlook 16.0.
Σημείωση: Αντί για 16.0, μπορεί να έχετε 15.0, 14.0 κ.λπ.
3. Αντικαταστήστε τον παρακάτω κωδικό
Dim xOutApp As Object
Dim xOutMail As Object
προς την
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Δοκιμάστε τα παραπάνω 3 βήματα. Δεδομένου ότι το vba σας λειτουργεί καλά στον υπολογιστή μας, επομένως είναι δύσκολο για εμάς να αναπαράγουμε το πρόβλημα. Ας ελπίσουμε ότι αυτή η μέθοδος θα σας βοηθήσει!
Amanda