Lotus Notes - VBA - Priorité et protection contre la copie
Bonjour
Version Lotus Notes : 8,5
Je viens solliciter de l'aide car après plusieurs recherches ici et sur le net je ne trouve pas mon bonheur.
Je sais envoyer des mails Lotus Notes via excel en vba sans problème.
Ce que je ne sais pas faire, c'est définir la priorité du message et le protéger contre la copie en vba (options Lotus Notes à priori).
Je ne sais pas définir ces options en vba.
Quelqu'un pourrait m'aider à trouver une solution ou m'orienter vers de la doc ?
Je vous remercie vivement par avance.
Salut le forum
Pour la priorité du message
.Importance = "1"Mytå
Merci Myta !
J'avais déjà vu cela sur le net mais je ne sais pas trop où le placer.
Je vais quand
Au fait, il parait qu'il est de bonne coutume que le demandeur signale qu'il a posté son sujet sur plusieurs forums.
Donc je signale que j'ai posté ma question sur un 2ème forum.
A ce titre, on m'a demandé de te passer le bonjour Myta..
Re le forum
Onobyone, fait voir le code que tu utilises pour piloter LotusNotes (Et merci de préciser la version)
Mytå
Merci pour ton aide.
J'ai rafistolé le truc car j'ai plusieurs modules.
Petite précision, j'utilise se code sur Access mais fonctionne aussi bien sur Excel.
Si besoin d'un fichier excel avec le code, pas de soucis, je le fais.
Merci encore
Public Sub Envoi_MessageAPCom()
Dim UserName As String
Dim MailDbName As String
Dim BaseMail As Object
Dim Session As Object 'The notes session
Dim NomUtilisateur As String
Dim BaseMail_Serveur As String
Dim BaseMail_Fichier As String
Dim ListeDoc As NotesDocumentCollection
'Dim PieceJointe As Object
Dim Objet As Object
Dim Destinataires(0) As String
Dim ccDestinataires(5) As String
Dim cccDestinataires(3) As String
Dim Subject As String
Dim LeMail As Object
Dim Prenom
Dim Sujet
Dim DateEnvoi As Date
DateEnvoi = Now
'DEFINITION DES DONNEES POUR L'ENVOI DU MESSAGE
NomNotes = Forms![Form Table Tempo Saisie Reinit APCom]![Nom Notes].Value
Sujet = "TOTO - Réinitialisation Test"
Destinataires(0) = NomNotes
Fixe = True
ChDrive ("V:")
ChDir ("v:\notes")
Set Session = CreateObject("Notes.NotesSession")
'Ouvre la base des mails
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
UserName = Session.UserName
'Ouvre la base des mails
Set BaseMail = Session.GetDatabase("", "")
If Not BaseMail.IsOpen Then BaseMail.OPENMAIL
'******************
' Création du message
Set LeMail = BaseMail.CreateDocument
Call LeMail.AppendItemValue("Form", "Memo")
Call LeMail.AppendItemValue("sendTo", Destinataires)
Call LeMail.AppendItemValue("CopyTo", ccDestinataires)
Call LeMail.AppendItemValue("Subject", Sujet)
LeMail.SaveMessageOnSend = True
Set body = LeMail.CreateRichTextItem("Body")
Dim rtstyle: Set rtstyle = Session.CreateRichTextStyle
Dim rtstyle2: Set rtstyle2 = Session.CreateRichTextStyle
Dim colorObject: Set colorObject = Session.CreateColorObject
rtstyle.Bold = True
rtstyle.NotesFont = 2
rtstyle.FontSize = 10
rtstyle2.Bold = False
Call body.AppendText("Bonjour,")
Call body.AddNewLine(2)
Call body.AppendText("Un incident (")
Call body.AppendStyle(rtstyle)
Call body.AppendText(Ticket)
Call body.AppendStyle(rtstyle2)
Call body.AppendText(") a été déclaré pour réinitialiser le mot de passe du code courtier et/ou du code responsable courtier :")
Call body.AddNewLine(2)
Call body.AppendStyle(rtstyle)
Call body.AppendText("CABINET : ")
Call body.AppendText(NomAgent)
Call body.AppendText(" ")
Call body.AppendText(PrenomAgent)
Call body.AddNewLine(2)
Call body.AppendStyle(rtstyle2)
Call body.AppendText("Nous vous prions de bien vouloir trouver ci-après le nouveau mot de passe que nous vous demandons de transmettre au courtier:")
Call body.AddNewLine(2)
Call body.AppendText("Code courtier : ")
Call body.AppendStyle(rtstyle)
Call body.AppendText(CodeNuf)
Call body.AddNewLine(1)
Call body.AppendStyle(rtstyle2)
Call body.AppendText("Code Responssable : ")
Call body.AppendStyle(rtstyle)
Call body.AppendText(CodeResponsable)
Call body.AddNewLine(1)
Call body.AppendStyle(rtstyle2)
Call body.AppendText("Nouveau Mot de passe : ")
Call body.AppendStyle(rtstyle)
Call body.AppendText(MdP)
Call body.AddNewLine(2)
Call body.AppendText("IMPORTANT !")
Call body.AddNewLine(2)
Call body.AppendText("- Vous ne devez pas adresser le mot de passe par un moyen électronique mais contacter téléphoniquement le courtier pour lui fournir intuitu personae.")
Call body.AddNewLine(1)
Call body.AppendText("- En aucun vous ne devez changer le mot de passe à la place du courtier")
Call body.AddNewLine(2)
Call body.AppendStyle(rtstyle2)
Call body.AppendText("Cordialement")
Call body.AddNewLine(2)
Call body.AppendText("La cellule Habilitations")
Call body.AddNewLine(2)
LeMail.SaveMessageOnSend = True
'Prend en compte les pièces jointes
If FichierJoint <> "" Then
Set Objet = body.EmbedObject(1454, "", FichierJoint, "Body")
End If
'Envoie le mail
LeMail.Send 0
'LIBERE LES OBJETS
Progress.Caption = "95%"
Progress.Label19A.Visible = True
TimeOut = (Now + TimeValue("0:00:01"))
Progress.Repaint
Set BaseMail = Nothing
Set LeMail = Nothing
Set PieceJointe = Nothing
Set Session = Nothing
Set Objet = Nothing
End SubSalut le forum
N'ayant que LotusWeb essaye ceci pour la priority
' . . .
LeMail.SaveMessageOnSend = True
LeMail.Priority = "1" 'Selon les version "L", "H" ou "N"
'Prend en compte les pièces jointes
' . . . Mytå
Ok, j'essaierais !
Merci !
En attendant, à toi et à tous les membres du forum, je vous souhaite un très joyeux noel !!!
Bonjour et bonne année à tout le monde.
J'ai testé et cela ne fonctionnait pas, alors j'ai mis :
LeMail.Importance = "1"
et c'est ok !
Je ne clôture pas le topic encore car j'ai une piste pour la protection contre la copie et si c'est ok, je mettrais la solution ici au cas où cela interesserait quelqu'un.
Ci-après une solution qui fonctionne :
'Protection contre la copie
Call LeMail.ReplaceItemValue("$KeepPrivate", "1")
LeMail.SaveMessageOnSend = True
'Priorité
LeMail.Importance = "1"
'Accusé réception
LeMail.ReturnReceipt = "1"
'Faire apparaître l'image Secret sur le message
LeMail.SenderTag = "S"Merci encore une fois pour votre aide