Fonction équivalent pour vba sur outlook

Résolu

Senri Shiki Messages postés 3 Date d'inscription lundi 17 janvier 2011 Statut Membre Dernière intervention 18 janvier 2011 - 18 janv. 2011 à 09:26
Senri Shiki Messages postés 3 Date d'inscription lundi 17 janvier 2011 Statut Membre Dernière intervention 18 janvier 2011 - 18 janv. 2011 à 16:13

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

Afficher la suite

A voir également:

Fonction équivalent pour vba sur outlook
Fonction si et - Guide
Équivalent coco - Accueil - Réseaux sociaux
Equivalent coco - Accueil - Réseaux sociaux
Equivalent wawacity - Accueil - Outils
Equivalent word gratuit - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
18 janv. 2011 à 13:17

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

Réponse 2 / 2

Senri Shiki Messages postés 3 Date d'inscription lundi 17 janvier 2011 Statut Membre Dernière intervention 18 janvier 2011
18 janv. 2011 à 16:13

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

Discussions similaires

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

Quel est l'équivalent 40 GO d'internet en heures ?

Votre réponse

Discussions similaires