Outlook namen contactpersonen herkennen

[Axel05]

Nu wil ik contacten die ontbreken creeeren door middel van een userform. Dit gaat vrij goed, zolang er maar 1 e-mailadres ingegeven wordt.. Nu komt het helaas vrij vaak voor dat er meerdere adressen ingegeven dienen te worden. Deze zullen in Create_Contact.Textbox1 (dit is de userform) ingegeven worden met scheidingsteken ";". Nu had ik al bedacht om dit met een For next met als count de occurance van ";" te doen. Alleen werkt onderstaande code nog niet omdat deze nog geen split heeft en telkens weer met 'alle' adressen de contactpersoon aan wil maken..

Iemand een idee hoe ik deze split kan maken?


een voorbeeld hoe Create_Contact.TextBox1 er uit kan zien is:

Axel05@mail.com;Mail@Axel05.com;Axel05@Axel05.com

Bedoeling is dus dat er hier 3 contactpersonen aangemaakt worden.


Momenteel geeft Recip continue value "3" aan, terwijl ik verwacht dat hij 1 t/m 4 van de split weergeeft.. UBound werkt blijkbaar alleen met Cijfers, wat kan ik aanpassen aan de formule om dit met een String te laten werken?

    Dim oDL As Outlook.DistListItem
    Dim objItem As Object
    Dim Result As Integer
    Dim strDLName As String
    Dim objRecip As Outlook.Recipient
    
    
    strDLName = "1234"
    Set oDL = objItem

Set oDL = Application.CreateItem(olDistributionListItem)
oDL.DLName = strDLName


[COLOR="#FF0000"] Dim strArr() As String, J As Long
strArr = Split(Create_Contact.TextBox1, ";")
getoccurancecount = UBound(strArr) + 1


For J = 1 To getoccurancecount
Dim Recip As String
Recip = UBound(strArr,J)


Set objRecip = Application.Session.CreateRecipient(Recip)
objRecip.Resolve
oDL.AddMember objRecip


Next J[/COLOR]
 oDL.Save
    End If
    End If
    
   
    Set oDL = Nothing
    Set lMembercount = Nothing
    Set J = Nothing
    Set GetOccurancecount = Nothing
    Set Create_Contact = Nothing
 

End Sub

 

[HSV]

Rommel hier maar eens wat mee.
Split kan zowel getallen als een string aan, maar geeft een string retour.

[COLOR=#ff0000]strArr = Split(Create_Contact.TextBox1, ";")
for i = 0 To UBound(strArr) 
  msgbox strArr(i)
next[/COLOR]

 

[Axel05]

Thanks dat werkt perfect!

 

[Axel05]

De sub is bijna helemaal naar behoren nu! ben alleen nog op zoek naar de mogelijkheid om een bestaande distributielijst (het liefst in exchange maar in default contacts is ook goed) toe te voegen als 'Recipient'. Met andere woorden, een distributielijst in een distributielijst. ik krijg dit met onderstaande sub nog niet voor elkaar..

      Dim Old As Outlook.Items
      Dim ol2 As Outlook.DistListItem
      Dim objRecip As Outlook.DistListItem
For I = 0 To UBound(strArr)
Set Old = NS.GetSharedDefaultFolder(objOwner, olFolderContacts).Items
Set ol2 = Old(strArr(I))
    Set objRecip = ol2.GetMember(I)
        ol2.Resolve
        oDL.AddMember ol2
        
        MsgBox Old
        MsgBox objRecip
        
Next

Hij gaat mis op de objRecip, daar dit natuurlijk geen 'member' is. Welke settings moet ik aanpassen om dit voor elkaar te krijgen?