fonction équivalent pour vba sur outlook Résolu/Fermé

Question

Bonjour,je suis en stage j'aimerai savoir l'équivalent de la fonction php explode() sur vba. Je suis en stage et je dois faire une boucle qui mette tous les contacts dans un tableau puis une autre boucle qui enregistre la valeur de tous les contacts du tableau. Voilà plus bas dans mon code j'aimerai qu'il y ait a la place de "mail@domaine.fr" la valeur du tableau s'il vous plait aidez-moi. Sub AjouterContact() '--------------------------------------------------------------------------------------- ' Procédure : CreationContact ' Auteur : Dolphy35 - https://dolphy35.developpez.com/ ' Date : 06/05/2008 ' Détail : Création d'un nouveau Contact '--------------------------------------------------------------------------------------- ' 'Déclaration des objets Dim MonApply As Outlook.Application Dim MonContact As Outlook.ContactItem 'Instance des Objets Set MonApply = Outlook.Application 'Instance de l'application Set MonContact = MonApply.CreateItem(olContactItem) 'Instance du nouveau Contact 'définit plusieurs attributs du nouveau contact With MonContact .Email1Address = "mail@domaine.fr" End With 'Affichage du nouvel Objet Contact MonContact.Save 'Vide des instances Set MonApply = Nothing


    Set MonContact = Nothing
    
End Sub




Configuration: Windows 7 / Firefox 3.6.13

lermite222 · Answer

Bonjour,
La liste des nouveaux contacts, tu la saisi avec un InputBox,.. un formulaire ?
A+

Senri Shiki · Answer

Oui je viens de voir InputBox mais vu que je n'ai jamais fais de vba mais je me suis fais aider voilà mon code il n'est pas terminer mais on ne sait jamais qui pourrait en avoir besoin.

Sub AjouterContact()
'---------------------------------------------------------------------------------------
' Procédure : CreationContact
' Auteur    : Dolphy35 - https://dolphy35.developpez.com/
' Date      : 06/05/2008
' Détail    : Création d'un nouveau Contact
'---------------------------------------------------------------------------------------
'
    'Déclaration des objets
    Dim MonApply As Outlook.Application
    Dim MonNameSpace As NameSpace
    Dim MonDossier As Folder


    
    'Instance des Objets
    Set MonApply = Outlook.Application    'Instance de l'application
    Set MonNameSpace = MonApply.GetNamespace("MAPI")
    MonNameSpace.GetDefaultFolder(olFolderContacts).Folders.Item("collègue").Delete
    Dim Temp As Object
    Set Temp = MonNameSpace.GetDefaultFolder(olFolderContacts).Folders.Add("collègue", "olFolderContacts")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderContacts).Folders.Item("collègue")
    Dim test As String
    Dim Name() As String
    
    
    Address = InputBox("Entrer la liste d'email", "bonjour")
    Name = Split(Address, "; ")
    
    MsgBox (Name(0))
        
    'définit plusieurs attributs du nouveau contact
    For Each statements In Name
        Dim MonContact As Outlook.ContactItem
        Set MonContact = MonApply.CreateItem(olContactItem)
        'Instance du nouveau Contact
        With MonContact
            .Email1Address = statements
            
        End With
        'Affichage du nouvel Objet Contact
        MonContact.Save
        MonContact.Move MonDossier
         
        Set MonContact = Nothing
    Next
    'Vide des instances
    Set MonApply = Nothing
    Set Temp = Nothing
End Sub

Fonction équivalent pour vba sur outlook

2 réponses

Discussions similaires