L'obtention de type défini par l'utilisateur non défini erreur lors de l'exécution de code
Personne ne sait pourquoi je suis un "type défini par l'utilisateur non défini" erreur dans le Function GetOutlookApp() As Outlook.Application
au bas de ce code?
Sub CreateAppointments()
Dim cell As Excel.Range
Dim rng As Excel.Range
Dim wholeColumn As Excel.Range
Dim startingCell As Excel.Range
Dim oApp As Outlook.Application
Dim tsk As Outlook.TaskItem
Dim wkbk As Excel.Workbook
Dim wksht As Excel.Worksheet
Dim lastRow As Long
Dim arrData As Variant
Dim i As Long
"démarrer Outlook app
Set oApp = GetOutlookApp
If oApp Is Nothing Then
MsgBox "Could not start Outlook.", vbInformation
Exit Sub
End If
' get plage de feuille de calcul dans un tableau en une seule fois
Set wkbk = ActiveWorkbook
Set wksht = wkbk.ActiveSheet
Set wholeColumn = wksht.Range("B:B")
lastRow = wholeColumn.End(xlDown).Row - 2
Set startingCell = wksht.Range("B2")
Set rng = wksht.Range(startingCell, startingCell.Offset(lastRow, 1))
arrData = Application.Transpose(rng.Value)
"en boucle par le biais de tableau et créer des tâches pour chaque enregistrement
For i = LBound(arrData, 2) To UBound(arrData, 2)
Set tsk = oApp.CreateItem(olTaskItem)
With tsk
.DueDate = arrData(2, i)
.Subject = arrData(1, i)
.Save
End With
Next I
End Sub
Function GetOutlookApp() As Outlook.Application
On Error Resume Next
Set GetOutlookApp = CreateObject("Outlook.Application")
End Function
Avez-vous d'ajouter une référence à l'office de serveur COM? Outils > Références > tique Microsoft Outlook XXX Bibliothèque d'Objets
Bingo! Qu'il a été. Merci!!!
Double Possible de Type Défini par l'Utilisateur Non Défini - Macros Excel
Double Possible de User-type défini non défini pour AppointmentItem dans Excel
Bingo! Qu'il a été. Merci!!!
Double Possible de Type Défini par l'Utilisateur Non Défini - Macros Excel
Double Possible de User-type défini non défini pour AppointmentItem dans Excel
OriginalL'auteur Kim G | 2015-06-02
Vous devez vous connecter pour publier un commentaire.
La Comment faire pour automatiser Outlook à partir d'un autre programme article décrit toutes les étapes nécessaires pour l'automatisation de Outlook. Il déclare:
À utiliser dès le début de la liaison, vous devez d'abord référence à la bibliothèque d'objets Outlook disponible. Pour ce faire, à partir de Visual Basic (VB) ou Visual Basic pour Applications, procédez comme suit:
Le lien est réparé maintenant. Je vous remercie.
OriginalL'auteur Eugene Astafiev
J'étais ont le même problème lorsque j'utilise Outlook dans mes scripts VBA Excel et que je sélectionne:
Outils > Références > Cochez la case en face de "Microsoft Outlook 15.0 Bibliothèque d'Objets.
OriginalL'auteur D. Chirita