Hallo Amanda!
Dit is Ryan4 van ExtendOffice. Bedankt voor het verzenden van uw e-mailadres om mijn probleem op te lossen. Ik ben van plan een actief lid te worden sinds ik uw fantastische community heb ontdekt, dus ik hoop dat mijn problemen met het uploaden van bestanden uiteindelijk worden opgelost!
Zie voorlopig het bijgevoegde bestand hier. Ik heb de code bijgewerkt om "Exit Sub" te lezen in plaats van "End if", maar ik ontvang nog steeds een foutmelding zonder debug-optie. Kan je adviseren? Misschien is het mijn structuur of inspringing.
Nogmaals bedankt voor je hulp!
Ryan
Hallo Ryan,
E-mail bericht ontvangen. Aangezien er mogelijk andere gebruikers zijn die hetzelfde probleem hebben, zal ik hier antwoorden.
Probeer de onderstaande methode:
1. Open
Referentie.
2. Controleren
Microsoft Outlook 16.0 Objectbibliotheek.
Opmerking: in plaats van 16.0 heeft u mogelijk 15.0, 14.0, enz.
3. Vervang de onderstaande code:
Dim xOutApp As Object
Dim xOutMail As Object
naar
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Probeer de bovenstaande 3 stappen. Aangezien uw vba goed werkt op onze computer, is het voor ons moeilijk om het probleem te reproduceren. Hopelijk helpt deze methode je!
Amanda