Partager et modifier des cartes de visite

Version imprimable

30/06/2014, 16h07
Ysae68

Partager et modifier des cartes de visite

Bonjour à tous,

Je vous explique ce que je souhaiterais faire : j'ai une liste assez considérable de cartes de visite dans mon Outlook, et il faudrait que je les mette à jour. Pour cela, j'aimerais les envoyer aux personnes concernées, pour qu'elles corrigent elles-même les infos de la carte si besoin, et me la renvoie. Sauf que comme il s'agit de quelques centaines de cartes, j'aimerais bien évidemment éviter de chaque fois envoyer les mails un à un, avec pour chacun une autre carte à insérer.

J'aurais donc besoin de pouvoir envoyer en une fois le même mail à tous les contacts des cartes de visite, avec seulement la carte qui change, et de pouvoir enregistrer les cartes modifiées qui auront été renvoyées.

J'espère avoir bien expliqué. Existe t il une procédure approchante, ou est ce qu'il me faudrait une macro ? Et si cela devrait se faire par VBA, n'hésitez pas à me fournir une piste, je n'en ai encore jamais fait sous Outlook.

Merci d'avance pour votre aide ! :D

Bonjour,
Voilà pour l'envoi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Contact_envoi_vcf_pour_maj()
 
 
    Dim myOlApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myContacts As Outlook.items
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).items
    Dim Mycontact As ContactItem
    Dim MyMessage As Outlook.MailItem
 
    For Each myItem In myContacts
        Destinataire = ""
        If (myItem.Class = olContact) Then
            Set Mycontact = myItem
 
            If Mycontact.Email1Address <> "" Then
                Destinataire = Mycontact.Email1Address
            ElseIf Mycontact.Email2Address <> "" Then
                Destinataire = Mycontact.Email2Address
            ElseIf Mycontact.Email3Address <> "" Then
                Destinataire = Mycontact.Email3Address
            Else:
                GoTo Suite    'on fait rien
            End If
 
            Set MyMessage = Mycontact.ForwardAsBusinessCard
            MyMessage.HTMLBody = "<html><body>Merci de mettre à jour vos coordonnées et de me renvoyer la vcard</html></body>" & MyMessage.HTMLBody
            MyMessage.To = Destinataire
            MyMessage.Display
            MyMessage.Send
 
        End If
Suite:
    Next
End Sub

04/07/2014, 09h01
Ysae68

Waou, je n'en demandais pas tant 8O Merci beaucoup Oliv, c'est vraiment sympas, je vais me pencher la dessus ! :D
04/07/2014, 09h34
Oliv-

ton entousiasme fait plaisir à lire :P
07/07/2014, 10h44
Ysae68

Disons que la perspective d'envoyer tous ces mails manuellement ne me réjouissais pas trop, et comme je n'étais pas sur d'arriver à faire ça en VBA... Donc merci encore, ça marche impec' ! :D

Sinon (mais ça, ça serait la cerise sur le gâteau, si ce n'est pas possible ce n'est vraiment pas grave), est ce qu'il y a possibilité de prendre en compte la date de dernière modification d'une carte ? Par exemple, si une carte a été créée/modifiée il y a deux semaine, pas la peine d'envoyer le mail... J'ai fais quelques recherches, je ne crois pas que cette donnée soit prise en compte lors de l'enregistrement d'une carte de visite (en tout cas je n'ai rien trouvé à ce sujet). Mais je demande, au cas ou... :oops:
07/07/2014, 12h39
Oliv-

SAlut,

tu dois tester Myitem.LastModificationTime ( #16/04/2014 16:22:56# : Date)

Code:

if DateDiff("d", Mycontact.LastModificationTime, Date) < 15 then goto suite
08/07/2014, 11h32
Ysae68

Impeccable ! Je ne pensais pas que ça serait possible, vu que lorsque je consulte une carte de visite, il n'y a aucune information quelque part du genre "Dernière modification".

Merci beaucoup en tout cas, je te dois une fière chandelle ! :D :ccool: