Discussion :

[JosephM]

Bonjour,

Je souhaite insérer les dates de mes rendez vous dans la fonction calendrier de Outlook (2013) avec à chaque fois un rappel. Par la suite au moment de ce rappel, je dois envoyer une trame. Elle peut être UDP, TCP... où même juste être un 1 ou un 0. Cette trame me permettra d'activer un équipement par la suite.

Savez vous s'il est possible de réaliser cela en VBA ? Je ne m'y connais pas trop dans ce langage, j'ai commencé à faire quelques recherches mais pour l'instant rien de concluant. Il existe peut être une option déjà implémentée dans Outlook mais je n'ai rien trouvé.

Merci d'avance.

[Oliv-]

Bonjour
Ta trame c est quoi un wake on lan

[JosephM]

Bonjour, en fait la trame sera envoyée à un software (Medialon manager) qui contrôle des équipements, il peut lui même lire une multitude de trames différentes donc peu importe le type.

[Oliv-]

C'est vraiment vague ta description de ta trame, je t'invite à rechercher avec les mots clefs VBA + wininet ou VBA +telnet.

UNe fois que tu as trouvé la solution pour communiquer avec ton Manager, tu pourras l'exécuter lors des rappels de OUTLOOK.

il faut tester un élément de ton rappel le sujet par exemple

Code :

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

1
2
3
4
Private Sub Application_Reminder(ByVal Item As Object)
MsgBox "reminder" & vbCr & Item.subject
 
End Sub

[JosephM]

Merci pour ton indication, je fait le tour de pas mal de forum, je n'ai pas exactement compris comment fonctionne le wininet et le telnet mais j'ai trouvé un lien conseillé par un membre du forum sur l'envoi de sockets en UDP grâce a winsock: https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx
Je m'en suis inspiré avec le code que tu m'as donné:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Application_Reminder(ByVal Item As Object)
MsgBox "reminder" & vbCr & Item.Subject
On Error Resume Next
If Socket.State <> 1 Then
Socket.LocalPort = 10000
End If
Socket.RemoteHost = 'L'adresse où il faut envoyer les données
Socket.RemotePort = 10001 'Le port où il faut envoyer les données
Socket.SendData = "go"
End Sub

Cela ne fonctionne pas, cela me parait un simple comme syntaxe.
Sinon j'ai trouvé ce code : http://forums.codeguru.com/showthrea...Packets-in-VBA mais je ne comprends malheureusement pas, il me manque des notions de réseau et de VBA, pense tu que cela pourrait fonctionner ? Je ne vois pas à quel moment tu rentres les données que tu veux envoyer.

Merci d'avance