cs_HarryCover
Messages postés1Date d'inscriptionmardi 4 mars 2003StatutMembreDernière intervention 1 octobre 2003
-
1 oct. 2003 à 12:14
ricool
Messages postés22Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention24 juillet 2005
-
3 juin 2005 à 18:41
Je souhaite pouvoir envoyer un mail à plusieurs personnes en même temps mais je n'arrive pas à mettre plusieurs adresses email(s) dans le champ "Send To". Lorsque j'essaye par exemple ==> toto@yahoo.fr, titi@yahoo.fr, tata@yahoo.fr ==> Ca ne marche pas aucunes valeurs apparaient dans le champ Send To sous Lotus. Voici le Code utilisé :
'Déclaration des variables
'--------------------------
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim Name As String
Dim Surname As String
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim MyStyle As Object
Dim MyItem As Object
Dim NotesDoc As Object
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim iPos As Long
Dim ws
Dim servername As String
Dim strCopyTo As String
Dim dbname As String
Dim viewName As String
Dim masque As String
Dim Key As String
Dim EmailAddress As String
Dim strSubject As String
Dim strBody As String
Const EMBED_OBJECT = 1454