Discussion :

[bruimécanique]

Bonjour à tous,

Je suis à la recherche d’une bonne âme qui pourrait m’aider à grandement faciliter mon quotidien.

Travaillant dans une agence de voyage, je dois passer des réservations par mail à partir de données contenues dans un tableau excel. Un client pouvant loger dans 6 hôtels différents, toutes les données de la réservation sont contenues dans un tableau excel (Voir pièce jointe, onglet « réservation ») :
Coordonnées (e-mail) de l’hôtel, données de la réservation (client et caractéristiques de la réservation)

A l'heure actuelle je copie/colle ces données dans 6 emails différents manuellement. Je souhaiterais réaliser un bouton (à l’image du bouton sur l’onglet en question) qui permettrait en cliquant de dessus l’ouverture de 6 emails pour chacun des 6 hôtels, à partir de Thunderbird (mon logiciel de messagerie) afin que je n’ai qu’une relecture à faire avant l’envoi définitif (le 2ème onglet du fichier joint comprend une image de l’email et de sa mise en forme, indiquant de quelle manière les données sont reprises)

Je connais assez bien excel mais ai toujours eu du mal avec VBA, qui j’imagine devrait pouvoir répondre à ma problématique.

Quelqu’un a-t-il réalisé quelque chose de similaire, sait si c’est effectivement possible ? Comment le réaliser ?

Merci d’avance pour toute piste !!

Je suis entièrement disponible pour éclaircir tout point qui manquerait de précision !

Merci !Lorrain

[EngueEngue]

Salut,

La manipulation de thunderbird en shell est très limitée.. cela ne te permettra jamais d'envoyer des ranges en html.. et un string envoyé par shell étant limité en nombre de caractères ton body ne peut être bien long.

J'ai essayé l'adaptation de ton classeur mais c'est impossible ça s'arrête à tes nuits..

Tu peux le faire en CDO et en outlook.

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
Sub sendthunderbird()
Dim destinataire, sujet As String, body
Dim i As Integer
 
With Sheets("Réservations")
i = 2
While .Cells(1, i) <> ""
destinataire = .Cells(2, i)
 
sujet = "Reserva " & .Cells(4, i)
 
body = "Hola%0A Le confirmo la reserva siguiente:%0A%0A" & _
"Email : " & destinataire & "%0A" & _
"Hotel : " & .Cells(3, i) & "%0A" & _
"Cliente : " & .Cells(4, i) & "%0A" & _
"Fecha de entrada : " & .Cells(5, i) & "%0A" & _
"Fecha de salida : " & .Cells(6, i) & "%0A" & _
"Numero noches : " & .Cells(7, i) & "%0A" & _
"Numero pax : " & .Cells(8, i) & "%0A" & _
"Observaciones : " & .Cells(13, i) & "%0A%0A" & _
"Confirmar lo antes posible la reserva. Gracias y un saludo"
 
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
'strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
 
 
Call Shell(strcommand, vbNormalFocus)
i = i + 1
Wend
End With
End Sub