Mettre une personne en copie (cc) dans Lotus Notes
cs_PhotoLook
Messages postés
2
Date d'inscription
jeudi 21 décembre 2006
Statut
Membre
Dernière intervention
24 mai 2007
-
24 mai 2007 à 09:51
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 24 mai 2007 à 15:33
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 24 mai 2007 à 15:33
A voir également:
- Illegal circular use in lotus notes
- Mcd gestion des notes des etudiants - Forum PHP
- Illegal argument exception - Forum Java
- Table in php - Conseils pratiques -PHP
- Invalid use of non-static member function - Forum C / C++ / C++.NET
- Exception in thread "awt-eventqueue-0" java.lang.nullpointerexception - Forum Java
2 réponses
cs_Megafan
Messages postés
389
Date d'inscription
dimanche 7 avril 2002
Statut
Membre
Dernière intervention
23 septembre 2016
2
24 mai 2007 à 13:57
24 mai 2007 à 13:57
une petite recherche sur google et hop
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
de :
http://www.fabalou.com/VBandVBA/lotusnotesmail.asp
@+
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
de :
http://www.fabalou.com/VBandVBA/lotusnotesmail.asp
@+
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
24 mai 2007 à 15:33
24 mai 2007 à 15:33
Salut,
tiens, encore une autre procédure que la tienne (bien que très ressemblant) :
'Envoi d'un mail avec Lotus Notes
'Subject : sujet du mail
'Attachment
: nom d'une pièce jointe
'Recipient : adresse
e-mail du destinataire principal
'ccRecipient :
destinataire en copie
'bccRecipient : destinataire
en copie invisible
'BodyText : corps du
mail
'SaveIt : mettre à True pour que le mail soit
sauvegardé
'Password : mot de
passe
Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
ByVal Recipient As String, ByVal ccRecipient As String,
_
ByVal bccRecipient As String, ByVal BodyText As String, _
ByVal SaveIt As Boolean, ByVal Password As String)
Dim Maildb As Object 'La base des
mails
Dim UserName As String 'Le nom d'utilisateur
Dim MailDbName As String 'Le nom de la base des
mails
Dim MailDoc As Object 'Le mail
Dim AttachME As Object 'L'objet pièce jointe en RTF
Dim Session As Object 'La session
Notes
Dim EmbedObj As Object 'L'objet incorporé
'Crée
une session notes
Set Session = CreateObject("Notes.NotesSession")
'*** Cette ligne est
réservée aux versions 5.x et supérieur : ***
''
Session.Initialize (Password)
'Récupère
le nom d'utilisateur et crée le nom de la base des mails
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1,
UserName, " "))) & ".nsf"
'Ouvre la base des mails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL
'Paramètre le mail à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
'Prend en compte les pièces jointes
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Envoie le
mail
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>
@++
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
tiens, encore une autre procédure que la tienne (bien que très ressemblant) :
'Envoi d'un mail avec Lotus Notes
'Subject : sujet du mail
'Attachment
: nom d'une pièce jointe
'Recipient : adresse
e-mail du destinataire principal
'ccRecipient :
destinataire en copie
'bccRecipient : destinataire
en copie invisible
'BodyText : corps du
'SaveIt : mettre à True pour que le mail soit
sauvegardé
'Password : mot de
passe
Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
ByVal Recipient As String, ByVal ccRecipient As String,
_
ByVal bccRecipient As String, ByVal BodyText As String, _
ByVal SaveIt As Boolean, ByVal Password As String)
Dim Maildb As Object 'La base des
mails
Dim UserName As String 'Le nom d'utilisateur
Dim MailDbName As String 'Le nom de la base des
mails
Dim MailDoc As Object 'Le mail
Dim AttachME As Object 'L'objet pièce jointe en RTF
Dim Session As Object 'La session
Notes
Dim EmbedObj As Object 'L'objet incorporé
'Crée
une session notes
Set Session = CreateObject("Notes.NotesSession")
'*** Cette ligne est
réservée aux versions 5.x et supérieur : ***
''
Session.Initialize (Password)
'Récupère
le nom d'utilisateur et crée le nom de la base des mails
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1,
UserName, " "))) & ".nsf"
'Ouvre la base des mails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL
'Paramètre le mail à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
'Prend en compte les pièces jointes
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Envoie le
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>
@++
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~