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
| Private Sub Renommer_Click()
On Error GoTo Err_Renommer_Click
Dim stDocName As String
Dim NewName As String
Dim destinataire As String
stDocName = "E_Demandes_Transports"
'Incrémente le nom de l'état avec les variables voulues. Celles-ci se trouvent sur le formulaire concerné.
NewName = "BC" & " " & [Numero_Demande_Transport] & "_" & [VilleDepart] & "_" & [Ville_Arrivee] & " " & [Rappel_date_aller]
'Récupère l'adresse mail du destinataire
destinataire = DLookup("[mail]", "T_transporteurs", "[nom_transporteur] = '" & Forms![F_Demandes_Transports]!Transporteur_Selectionne & "'")
'Renomme l'état à envoyer
DoCmd.Rename NewName, acReport, stDocName
MsgBox (NewName)
'Envoie le mail avec l'état renommé et les infos (titre, texte, etc.) choisis
DoCmd.SendObject acSendReport, NewName, acFormatRTF, destinataire, , , "Réservation n° " & [Numéro transport], "Bonjour," & Chr(13) & Chr(10) & Chr(10) & "Veuillez trouver ci-joint le bon de commande n° " & [Numéro transport] & "." & Chr(13) & Chr(10) & Chr(10) & "Cordialement," & Chr(13) & Chr(10) & Chr(10) & "Le Service Transport du S.I.S.T Perpignan - Méditerranée", True
'Remet le nom original de l'état
DoCmd.Rename stDocName, acReport, NewName
MsgBox (stDocName)
Exit_Renommer_Click:
Exit Sub
Err_Renommer_Click:
MsgBox Err.Description
Resume Exit_Renommer_Click
End Sub |
Partager