Créer un événement thunderbird

Bonjour,

Après pas mal de recherche, je n'arrive pas à créer un événement à partir d'excel.

J'ai déjà créer un bouton pour envoyer un mail avec une pièce jointe voici le code :

[size=85]Sub Mail_aux_clients()

Dim destinataire, sujet, CC As String

destinataire = Sheets("data").Range("mail_client").Value

sujet = "Documents"

fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

text1 = "Bonjour," & " "

text2 = "Veuillez trouver en pièce jointe les documents d'autorisation mairie ainsi q un courrier explicatif." & " "

text3 = "En vous souhaitant bonne réception." & " "

text4 = "Cordialement," & " "

body = text1 & text2 & text3 & text4

strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"

strcommand = strcommand & " -compose " & "to='" & destinataire & "'"

strcommand = strcommand & "," & "subject=" & sujet & sujet1 & ","

strcommand = strcommand & "body='" & body & "'"

strcommand = strcommand & "," & "attachment=file:///" & fichier

Call Shell(strcommand, vbNormalFocus)

End Sub

Et voici le début du code pour les événements :

Sub Rappel_client()

Dim Titre, lieu, CC As String

Titre = "Rappel dépot mairie" & Range("nom_client").Value

lieu = Sheets("data").Range("mail_client").Value

strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"

Call Shell(strcommand, vbNormalFocus)

End Sub[/size]

Auriez vous une idée ?