Discussion :

[GADENSEB]

Bonjour Le Forum,

Je réalise un fichier en bdd sous excel qui génére des rdv dans mon google agenda.

Pour cela, j'utilise le code suivant

Je me suis aperçu que ce code était du Java (Utilisé dans les API GOOGLE)

Donc ce code, va créer un rdv dans mon GoogleAgenda.
Mais il n'y a pas la notion de Rappel


Donc je me suis dis :
- Est-ce possible d'inclure une notion de rappel du GoogleAgenda ?
- Est-ce possible de lier (synchroniser) mes contacts GMAIL dans un onglet excel ?



En premier lieu, suis-je dans le bon forum ?

Bonne journée

Seb






BASE EMPLOI - DEMO.xlsm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub GOOGLEAGENDA()
 
 
'================================== PARAMETRES GOOGLE AGENDA ==================================
Email = "xxxxxx@gmail.com"
Passwd = "xxxxxx"
authUrl = "https://www.google.com/accounts/ClientLogin"
CALENDARURL = "http://www.google.com/calendar/feeds/default/private/full"
MAILINVITE = "xxxxxxxxxxxxx@free.fr"
LIEU = "xxxxxxxxxxxxxxx"
 
 
 
Sujet = Range("C" & I).Value & " - " & Range("AF" & I).Value
DESCRIPTIONRDV = Range("AF" & I).Value
NOMINVITE = "Agenda Emploi"
DATEDEBUT = Range("AP" & I).Value & "T13:00:00.000Z"
DATEFIN = Range("AP" & I).Value & "T17:00:00.000Z"
 
 
 
'================================== CREATION D'UN EVENEMENT ==================================
calendarEntry = "<?xml version='1.0' ?><entry xmlns='http://www.w3.org/2005/Atom' " _
& "xmlns:gd='http://schemas.google.com/g/2005'>" _
& "<category scheme='http://schemas.google.com/g/2005#kind' " _
& "term='http://schemas.google.com/g/2005#event'></category>" _
& "<title type='text'>" & Sujet & "</title>" _
& "<content type='text'>" & DESCRIPTIONRDV & "</content>" _
& "<author>" _
& "<name>" & NOMINVITE & "</name>" _
& "<email>" & MAILINVITE & "</email>" _
& "</author>" _
& "<gd:transparency " _
& "value='http://schemas.google.com/g/2005#event.opaque'>" _
& "</gd:transparency>" _
& "<gd:eventStatus " _
& "value='http://schemas.google.com/g/2005#event.confirmed'>" _
& "</gd:eventStatus>" _
& "<gd:where valueString='" & LIEU & "'></gd:where>" _
& "<gd:when startTime='" & DATEDEBUT & "' " _
& "endTime='" & DATEFIN & "'></gd:when>" _
& "</entry>" _
'================================== AUTHENTIFICATION ==================================
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "POST", authUrl, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "Email=" + Email + "&Passwd=" + Passwd + "&service=cl&source=Gulp-CalGulp-1.05"
strAuthTokens = objHTTP.responseText
strAuthTokens = Replace(strAuthTokens, vbCr, "")
strAuthTokens = Replace(strAuthTokens, vbLf, "")
strAuthTokens = Replace(strAuthTokens, vbCrLf, "")
strAuthTokens = Replace(strAuthTokens, "SID", "&SID", 1, 1)
strAuthTokens = Replace(strAuthTokens, "LSID", "&LSID")
strAuthTokens = Replace(strAuthTokens, "Auth", "&Auth")
strAuthTokens = Right(strAuthTokens, Len(strAuthTokens) - Len("Auth=") - InStr(strAuthTokens, "Auth=") + 1)
Set objHTTP = Nothing
 
'================================== REDIRECT ==================================
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "POST", CALENDARURL, False
objHTTP.setRequestHeader "Content-Type", "application/atom+xml"
objHTTP.setRequestHeader "X-If-No-Redirect", "True"
objHTTP.setRequestHeader "Authorization", "GoogleLogin auth=" & strAuthTokens
objHTTP.send calendarEntry
'objHTTP.status should be 412
 
'================================== POST TO THE NEW URL ==================================
headers = objHTTP.getAllResponseHeaders()
strResponse = objHTTP.responseText
redirectStringPos = InStr(headers, "X-Redirect-Location:")
redirectStringLength = InStr(InStr(headers, "X-Redirect-Location:"), headers, vbCrLf) - InStr(headers, "X-Redirect-Location:")
redirectUrl = Replace(Mid(headers, redirectStringPos, redirectStringLength), "X-Redirect-Location: ", "")
 
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "POST", redirectUrl, False
objHTTP.setRequestHeader "Authorization", "GoogleLogin auth=" & strAuthTokens
objHTTP.setRequestHeader "Content-Type", "application/atom+xml"
objHTTP.send calendarEntry
'objHTTP.status should be 201
 
'If objHTTP.Status = 201 Then
 '  MsgBox "Event saved"
'End If
 
End Sub

[wax78]

Je me suis aperçu que ce code était du Java (Utilisé dans les API GOOGLE)

En premier lieu, suis-je dans le bon forum ?

Ha bon ? Ca ressemble a tout sauf du java pour moi

A mon avis ce n'est pas le bon forum, mais lequel serait approprié ? Bonne question.

[GADENSEB]

mmmmmmm

Avec ce genre de questions, tu crois que je peux me retourner vers quel forum ?


bonne journée

Seb

[nchal]

Salut,

C'est clairement du VBA Excel, le forum est ici (http://www.developpez.net/forums/f66...ros-vba-excel/)

[GADENSEB]

Hello

Je vais retenter le coup mais ya pas bcp de monde interessé par le topic GMAIL / Excel ...



LOL

Merci


bonne aprem

Seb