Fonction équivalent pour vba sur outlook

Résolu
Senri Shiki Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Senri Shiki Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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<code type="vbnet"><code type="vbnet">
    Set MonContact = Nothing
    
End Sub





A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
La liste des nouveaux contacts, tu la saisi avec un InputBox,.. un formulaire ?
A+
1
Réponse 2 / 2
Senri Shiki Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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
0

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
Quel est l'équivalent 40 GO d'internet en heures ?
mha29 -
Sylvie -

5 réponses