Verwijzing naar Outlook in VBA Excel

[AatB]

Goedemorgen,

ik ontwikkel voor een school in excel een tooltje om mail ter versturen.
Ik gebruik Office 2016 en de school werkt met Office 2010.

Als ik de excelsheet opstuur, dan werkt het mail niet omdat de verwijzing naar Outlook een andere versie heeft.
Is dit middels een controle in vba op te lossen?

mvg,

Aat

 

[edmoor]

Een directe verwijzing naar Outlook is niet nodig.
Laat dus eens zien wat je daarmee precies bedoelt.

 

[AatB]

Dit is de code die ik gebruik...

Function StartMail(target)

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    
    'Error 429 occurs with GetObject if Outlook is not running.
    On Error Resume Next
    Set objOutlook = GetObject(, "Outlook.Application")
    If Err.Number = 429 Then 'Outlook is NOT running.
        MsgBox "Outlook is not running"
    Else
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(olMailItem)
    
        With OutMail
            .To = target
            .Display
        End With
        
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
   

End Function

En dit de verwijzing...

 

[AatB]

Een directe verwijzing naar Outlook is niet nodig.
Laat dus eens zien wat je daarmee precies bedoelt.

Zie mijn laatste bericht...

 

[Timshel]

Zelfde vraag werd vandaag beantwoord:
http://www.helpmij.nl/forum/showthread.php/934919-probleem-met-outlook-library