Routing slip

Le
Denys
Bonjour à tous,

Sur une feuille excel, l'usager clique un bouton de commande et ce
fichier est envoyé via Outlook à une destination interne. Seulement,
je souhaiterais que ce message soit encrypté, car nous avons la
possibilité de le faire en envoyant un message si on clique sur un
bouton dans la boite de message d'Outlook.

Voici le code

Sub envoi()
[j1].Value = "X"
RouteNow:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "Contribution Receipts"

.Subject = "Contribution receipt request"
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
Sheet1.CommandButton1.Visible = False
End With
ActiveWorkbook.Route
Sheet1.CommandButton1.Visible = True
[j1].Value = ""
End Sub

Où pourrai-je demander que le message soit encrypté ?

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23286461
bonjour Denys,

l'échange de mail crypté nécessite l'installation d'un programme des 2
côtés ainsi que la génération de certificats ou de clés d'échange.
par contre, il existe une solution si tu ne veux crypter que les
attachements (attention, le corps du mail ne sera pas crypté, seulement
l'attachement).
http://www.axantum.com/AxCrypt/ (par exemple mais il y en a d'autres)
permet de générer un fichier crypté par un mot de passe auto extractible.
c'est à dire que celui qui reçoit le mail, sauve l'exécutable en
attachement, lance cet exécutable, rentre le mot de passe et
l'extraction du fichier se fait.


--
isabelle

Le 2011-04-14 10:26, Denys a écrit :
Bonjour à tous,

Sur une feuille excel, l'usager clique un bouton de commande et ce
fichier est envoyé via Outlook à une destination interne. Seulement,
je souhaiterais que ce message soit encrypté, car nous avons la
possibilité de le faire en envoyant un message si on clique sur un
bouton dans la boite de message d'Outlook.

Voici le code

Sub envoi()
[j1].Value = "X"
RouteNow:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "Contribution Receipts"

.Subject = "Contribution receipt request"
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
Sheet1.CommandButton1.Visible = False
End With
ActiveWorkbook.Route
Sheet1.CommandButton1.Visible = True
[j1].Value = ""
End Sub

Où pourrai-je demander que le message soit encrypté ?

Merci pour votre temps

Denys

Denys
Le #23292941
On Apr 15, 8:52 am, isabelle
bonjour Denys,

l' change de mail crypt n cessite l'installation d'un programme des 2
c t s ainsi que la g n ration de certificats ou de cl s d' change.
par contre, il existe une solution si tu ne veux crypter que les
attachements (attention, le corps du mail ne sera pas crypt , seulement
l'attachement).http://www.axantum.com/AxCrypt/(par exemple mais il y en a d'autres)
permet de g n rer un fichier crypt par un mot de passe auto extractible.
c'est dire que celui qui re oit le mail, sauve l'ex cutable en
attachement, lance cet ex cutable, rentre le mot de passe et
l'extraction du fichier se fait.

--
isabelle

Le 2011-04-14 10:26, Denys a crit :



> Bonjour tous,

> Sur une feuille excel, l'usager clique un bouton de commande et ce
> fichier est envoy via Outlook une destination interne. Seulement,
> je souhaiterais que ce message soit encrypt , car nous avons la
> possibilit de le faire en envoyant un message si on clique sur un
> bouton dans la boite de message d'Outlook.

> Voici le code

> Sub envoi()
>          [j1].Value = "X"
> RouteNow:
>      ActiveWorkbook.HasRoutingSlip = True
>      With ActiveWorkbook.RoutingSlip
>         .Recipients = "Contribution Receipts"

>                .Subject = "Contribution receipt reque st"
>          .Message = ""
>          .Delivery = xlAllAtOnce
>          .ReturnWhenDone = False
>          .TrackStatus = False
>          Sheet1.CommandButton1.Visible = False
>      End With
>      ActiveWorkbook.Route
>          Sheet1.CommandButton1.Visible = True
>          [j1].Value = ""
> End Sub

> O pourrai-je demander que le message soit encrypt ?

> Merci pour votre temps

> Denys- Hide quoted text -

- Show quoted text -




Merci beaucoup Isabelle...

Denys
Publicité
Poster une réponse
Anonyme