DE EXCEL A OUTLOOK !

Question

Bonjour,

Voila mon problème:

J'ai réalisé un tableau excel qui va beaucoup m'aider dans mes relances client.

Une colonne date de relance indique la date à laquelle je dois relancer mon client et j'aimerai que celle-ci s'affiche automatiquement dans mon calendrier outlook avec le nom du client à relancer.

Comment faire?

Merci de votre aide

cs_Le Pivert · Answer

Bonjour,

Voici un code pour envoyer des données dans le calendrier d'Outlook :

'cochez la référence Microsoft Outlook 12.0 object library
Option Explicit

Private Sub CommandButton1_Click()
 On Error GoTo AddAppt_Err
        
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.AppointmentItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olAppointmentItem)
    
    With outappt
            .Start = Now
            .Duration = 10000  ' En minute
            .Subject = " VOTRE SUJET"
            .Body = " LE TEXTE DE VOTRE RENDEZ-VOUS "
            .Location = "L'EMPLACEMENT"
            .AllDayEvent = True     ' Toute la journée oui/non
            .ReminderSet = False   ' S'il y a un rappel
            .Save
       End With
       Set outobj = Nothing  ' Retire de la mémoire les objets créer
      
      Exit Sub

AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub

End Sub


A adapter

Attention 

Ce n'est pas Outlook Express!

cs_Le Pivert · Answer

Voici un exemple:

http://cjoint.com/14oc/DJlpwoLb28M.htm 

il suffit d'adapter les dates tout est expliqué.

Pour allez dans le code faire: AltF11

cs_Le Pivert · Answer

Fausse manoeuvre voici le nouveau lien:

 http://cjoint.com/data3/3JlpIkhbyHG.htm

DE EXCEL A OUTLOOK !

3 réponses

Newsletters