Envoyer un mail avec lotus notes 7 avec multi-diffusion, contenu message (body) multi-lignes, mot de passe lotus, pièce join
Soyez le premier à donner votre avis sur cette source.
Snippet vu 28 955 fois - Téléchargée 27 fois
Contenu du snippet
Bonjour,
J'utilise un envoi de mail via Lotus de manière automatisée depuis Excel (VBA mais ça marche en VB).
J'ai crée un exe qui est lancé par le Gestionnaire des taches.
Il ouvre Excel, effectue un certain nombre d'opérations et envoie un mail à un certain nombre de personnes.
Jusqu'à hier, j'avais un code qui fonctionnait parfaitement avec la version Lotus 6 installé sur mon poste.
Nous commençons à migrer des postes vers Lotus 7 et les destinataires ayant cette version avaient des
messages d'erreur lors de l'ouverture de leurs mails (dans les 2 sens cad v6 vers v7 ou v7 vers v6, j'avais
des problèmes).
C'est en cherchant sur ce site (http://www.vbfrance.com/codes/ENVOYER-MAIL-AVEC-LOTUS-NOTES-AVEC-PASSWORD_36653.aspx)
publié par EvilGhost que j'ai essayé le code qu'il propose. Cela semble bien fonctionner avec Lotus Notes 7.
Pour mes besoins, j'ai complété ce code car il est évident que chacun à des besoins spécifiques.
- Pouvoir avoir plusieurs lignes de texte dans le corps (body) du message
- Multi-diffusion du message.
Par contre je n'ai pas trouvé le code qui permet d'avoir un accusé Réception.
Si quelqu'un trouve, je suis preneur.
J'utilise un envoi de mail via Lotus de manière automatisée depuis Excel (VBA mais ça marche en VB).
J'ai crée un exe qui est lancé par le Gestionnaire des taches.
Il ouvre Excel, effectue un certain nombre d'opérations et envoie un mail à un certain nombre de personnes.
Jusqu'à hier, j'avais un code qui fonctionnait parfaitement avec la version Lotus 6 installé sur mon poste.
Nous commençons à migrer des postes vers Lotus 7 et les destinataires ayant cette version avaient des
messages d'erreur lors de l'ouverture de leurs mails (dans les 2 sens cad v6 vers v7 ou v7 vers v6, j'avais
des problèmes).
C'est en cherchant sur ce site (http://www.vbfrance.com/codes/ENVOYER-MAIL-AVEC-LOTUS-NOTES-AVEC-PASSWORD_36653.aspx)
publié par EvilGhost que j'ai essayé le code qu'il propose. Cela semble bien fonctionner avec Lotus Notes 7.
Pour mes besoins, j'ai complété ce code car il est évident que chacun à des besoins spécifiques.
- Pouvoir avoir plusieurs lignes de texte dans le corps (body) du message
- Multi-diffusion du message.
Par contre je n'ai pas trouvé le code qui permet d'avoir un accusé Réception.
Si quelqu'un trouve, je suis preneur.
Source / Exemple :
'//En VB , ajouter la référence ("Projet > References"): LOTUS DOMINO OBJECTS (qui correspond à domobj.tbl)
' // En VBA,ajouter la référence ("Outils > References"): LOTUS DOMINO OBJECTS (qui correspond à domobj.tbl)
Sub EnvoiMail()
Dim Email(6) As String
Email(1) = "erenaud@compagnie-deutsch.com"
Email(2) = "erenaud@wanadoo.fr"
Email(3) = "contact@erenaud.fr"
Email(4) = "dupont27@fr.fm"
Email(5) = "duvert27@fr.fm"
Email(6) = "durand27@laposte.net
For i = 1 To 6
Envoi = EnvoiNotesMail("Envoi mail Lotus V7", "C:\Excel\Postes commandes bloquées", Email(i), SaveIt:=True)
Next i
End Sub
Function EnvoiNotesMail(Subject As String, Attachment As String, Recipient As String, SaveIt As Boolean) As Boolean
'*********************************************
'Repris et développé par EvilGost et complété par Eren
'Subject: Sujet du mail
'Attachment: Chemin complet du fichier à attacher (ex: "C:\test.txt"),
'sinon, mettre "" /
'Recipient: Destinataire (ex: "erenaud@wanadoo.fr")
'SaveIt: sauvegarde du mail dans les courriers envoyés
'*************************************************************************************************************
'Set up the objects required for Automation into Lotus Notes
Dim Maildb As NotesDatabase 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim oSession As NotesSession
Dim dbDirectory As NotesDbDirectory
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim objNotesField As Object ' Déclaration de la variable concernant le corps du message
On Error GoTo ErrHandle
Set oSession = New NotesSession
'Démarre une session de notes
' La ligne suivante ne marche qu'avec les versions 5.x et 6.x ,
' c'est l'injection du mot de passe
oSession.Initialize ("PASSWORD")
'Récupère le nom par défaut de la session
UserName = oSession.UserName
'Ouvre la base mail en utilisant le serveur par défaut
Set dbDirectory = oSession.GetDbDirectory("EVREUX01/DEUTSCH") 'vous pouvez mettre l'adresse du serveur dans ces parentheses
Set Maildb = dbDirectory.OpenMailDatabase
'Création du formulaire d'envoi de mail
Set MailDoc = Maildb.CreateDocument()
MailDoc.AppendItemValue "Subject", Subject ' remplissage du Sujet
MailDoc.AppendItemValue "SendTo", Recipient ' adresse du destinataire Email(i)
MailDoc.AppendItemValue "ReturnReceipt", "1" ' pour avoir un accusé réception (qu'avec des clients Lotus, Orange)
' Construction du corps du message
Set objNotesField = MailDoc.CreateRichTextItem("Body")
With objNotesField
.AppendText "Bonjour,"
.AddNewLine 2
.AppendText "Ci-joint la situation des postes bloqués."
.AddNewLine 2
.AppendText "Vous trouverez dans le fichier joint."
.AddNewLine 2
.AppendText "********************************************"
.AddNewLine 2
.AppendText "Cet e-mail a été généré par un processus automatique."
.AddNewLine 2
.AppendText "Cordialement"
.AddNewLine 1
.AppendText "Eric RENAUD"
.AddNewLine 1
.AppendText "Gestion Intégrée et Données"
.AddNewLine 3
End With
'Permet d'attacher un document au mail
If Attachment <> "" Then
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
End If
'Envoi du document
If SaveIt = True Then
MailDoc.SaveMessageOnSend = SaveIt 'si à True, Lotus sauvegarde le mail envoyé
End If
Call MailDoc.Send(False) 'j'obtiens une erreur lorsque je mets True au lieu de false, si quelqu'un sait pourquoi
prvSendNotesMail = True
GoTo ExitHandle
ErrHandle:
MsgBox Err.Description
prvSendNotesMail = False
ExitHandle:
'Vidage mémoire
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set oSession = Nothing
Set dbDirectory = Nothing
Set EmbedObj = Nothing
End Function
A voir également
- Multi diffusion post
- Body join - Meilleures réponses
- Automation object error lotus notes - Meilleures réponses
- Visual Basic / VB.NET : Free 50h - compteur internet multi-postes - CodeS SourceS - Guide
- Delphi multi thread example - Conseils pratiques - Delphi
- La différence entre get et post ✓ - Forum - ASP / ASP.NET
- Système multi-agent java - Forum - Java
- Chat multi client java - Guide
30 juin 2011 à 15:46
30 juin 2011 à 14:08
Le nom du serveur, il faut demander à l'administrateur du service informatique
Le mot de passe est celui de ta session Lotus Notes
30 juin 2011 à 14:04
30 juin 2011 à 14:03
le nom du serveur lotus tu le trouve où ?
et quand tu dit :
"et le mot de passe de ta session:
oSession.Initialize ("PASSWORD")"
je remplace PASSWORD par mon mot de passe ? :s
j'avoue je suis complétement a la ramasse
30 juin 2011 à 13:55
Quelle version de Lotus Notes ?
Est-ce que tu as bien changé le nom du serveur Lotus
Set dbDirectory = oSession.GetDbDirectory("EVREUX01/DEUTSCH")
et le mot de passe de ta session:
oSession.Initialize ("PASSWORD")
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.