Microsoft 365 Envoi d'une date vers un agenda Gmail à partir d'Excel

[alinco]

Bonjour à tous,

Je souhaite envoyer une date de RV (et l'heure uniquement pour la colonne "Dates de RV") à partir d'Excel vers mon agenda Gmail. J'ai créé une feuille Excel dans laquelle se trouve des dates et j'aimerais que ces dernières s'affichent dans mon agenda Gmail.

Est-ce possible ?

Merci d'avance à ceux qui se penchent sur mon cas.

 

[alinco]

Bonjour à tous,

Personne n'as de solution ou ce n'est pas possible de le faire ?

 

[alinco]

Bonjour à tous,

Je suis venu pour vous dire ma déception
Lorsque je regarde le nombre d'affichage et le nombre de réponses (aucune)... bravo pour l'entraide.
Je regrette déjà le soutien.

 

[jpb388]

bonjour à tous
Trouver en 3mn sur google
je ne l'ai pas testé

Private Sub envoiCdo()
    On Error GoTo Error_send
    Dim oCdo As Object
 
    Set oCdo = CreateObject("CDO.Message")
    With oCdo
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                              'ou CdoSendUsingPort : utilisation réseau
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"     'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465                   'port utilisé
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxx@gmail.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "zzzzzzzz"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
            .Update
 
        End With
        .Subject = "envoi exemple"                    ' objet du message
        .From = "xxxxxxxxx@gmail.com"                  ' adresse de l'expéditeur
        .To = "sssssssss@ccccccccc"                  ' adresse du destinataire
        .TextBody = "Ceci est un message de test."    ' corps du message en format texte brut
        .Send
 
    End With
 
Fin:
    Set oCdo = Nothing
    Exit Sub
 
Error_send:
    MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
    Resume Fin
 
End Sub