Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel envoi mail de EXCEL avec LOTUS

envoi mail de EXCEL avec LOTUS

8 réponses
Avatar
sleg
Bonjour,

Voila J'ai une macro (trouv=E9e ici m=EAme ;-) ) pour envoy=E9 des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=3D".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =3D".

merci d'avance de vos reponses.
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en A1:A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =".

merci d'avance de vos reponses.
Avatar
sleg
On 26 fév, 13:48, "Daniel.C" wrote:
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en A1: A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec  " MailDoc.Sendto =".

merci d'avance de vos reponses.


voici ma macro :

Sub SendNotesSMS()
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database
name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)

'Dim Plage As Range, T As Variant, A As Long
'Dim Shap As Object, B As Integer
Dim c As Range, Texte As String
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems
you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName)
- InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value
MailDoc.CopyTo = Worksheets("Sms_sender").Cells(5, 2).Value
MailDoc.Subject = Worksheets("Sms_sender").Cells(6, 2).Value
MailDoc.body = ""
For Each c In Sheets(1).Range("D6:D6")
If c.Font.ColorIndex = 46 Then
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
End If
Next c
MailDoc.body = Texte
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(1).Cells(21, 50).Value
Attachment2 = Worksheets(1).Cells(22, 50).Value
Attachment3 = Worksheets(1).Cells(23, 50).Value
If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> ""
Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment1,
"Attachment1")
MailDoc.CREATERICHTEXTITEM (Attachment1)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment2,
"Attachment2")
MailDoc.CREATERICHTEXTITEM (Attachment2)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment3")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment3,
"Attachment3")
MailDoc.CREATERICHTEXTITEM (Attachment3)
End If

'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
MailDoc.Send 0, Recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
MsgBox "Traitement terminé"
End Sub

pour explication voici le fonctionnement de mon petit fichier en B3
j'ai une liste choix qui me permet d'afficher en C3 les n° de
portable avec @sms séparé avec ; ; je
remplis la cellule B6 et je lance ma macro avec un bouton mais la
impossible d'envoyer plusieurs mail ou sms. snifff une idée ??


a j'oubliais je suis extrèmemant nul sous Excel ;-)

merci de vos reponses.

Avatar
Daniel.C
La cellule que tu indiques comme destinataire est la cellule B4 de la
feuille "Sub test1()
rep = MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro",
vbYesNo)
If rep = vbNo Then Exit Sub
' Ici ton code
End Sub

"sleg" a écrit dans le message de news:

On 26 fév, 13:48, "Daniel.C" wrote:
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en
A1:A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =".

merci d'avance de vos reponses.


voici ma macro :

Sub SendNotesSMS()
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database
name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)

'Dim Plage As Range, T As Variant, A As Long
'Dim Shap As Object, B As Integer
Dim c As Range, Texte As String
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems
you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName)
- InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value
MailDoc.CopyTo = Worksheets("Sms_sender").Cells(5, 2).Value
MailDoc.Subject = Worksheets("Sms_sender").Cells(6, 2).Value
MailDoc.body = ""
For Each c In Sheets(1).Range("D6:D6")
If c.Font.ColorIndex = 46 Then
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
End If
Next c
MailDoc.body = Texte
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(1).Cells(21, 50).Value
Attachment2 = Worksheets(1).Cells(22, 50).Value
Attachment3 = Worksheets(1).Cells(23, 50).Value
If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> ""
Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment1,
"Attachment1")
MailDoc.CREATERICHTEXTITEM (Attachment1)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment2,
"Attachment2")
MailDoc.CREATERICHTEXTITEM (Attachment2)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment3")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment3,
"Attachment3")
MailDoc.CREATERICHTEXTITEM (Attachment3)
End If

'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
MailDoc.Send 0, Recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
MsgBox "Traitement terminé"
End Sub

pour explication voici le fonctionnement de mon petit fichier en B3
j'ai une liste choix qui me permet d'afficher en C3 les n° de
portable avec @sms séparé avec ; ; je
remplis la cellule B6 et je lance ma macro avec un bouton mais la
impossible d'envoyer plusieurs mail ou sms. snifff une idée ??


a j'oubliais je suis extrèmemant nul sous Excel ;-)

merci de vos reponses.

Avatar
Daniel.C
La cellule que tu indiques comme destinataire est la cellule B4 de la
feuille "Sms_sender"; si tu veux envoyer les numéros de la cellule C3 (ce
dont je doute : qu'est-ce que tu mets en B6 ?), rempplace :

MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value

par :

Destis=Split([C3],";")
MailDoc.Sendto = Destis

Daniel

"sleg" a écrit dans le message de news:

On 26 fév, 13:48, "Daniel.C" wrote:
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en
A1:A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =".

merci d'avance de vos reponses.


voici ma macro :

Sub SendNotesSMS()
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database
name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)

'Dim Plage As Range, T As Variant, A As Long
'Dim Shap As Object, B As Integer
Dim c As Range, Texte As String
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems
you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName)
- InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value
MailDoc.CopyTo = Worksheets("Sms_sender").Cells(5, 2).Value
MailDoc.Subject = Worksheets("Sms_sender").Cells(6, 2).Value
MailDoc.body = ""
For Each c In Sheets(1).Range("D6:D6")
If c.Font.ColorIndex = 46 Then
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
End If
Next c
MailDoc.body = Texte
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(1).Cells(21, 50).Value
Attachment2 = Worksheets(1).Cells(22, 50).Value
Attachment3 = Worksheets(1).Cells(23, 50).Value
If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> ""
Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment1,
"Attachment1")
MailDoc.CREATERICHTEXTITEM (Attachment1)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment2,
"Attachment2")
MailDoc.CREATERICHTEXTITEM (Attachment2)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment3")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment3,
"Attachment3")
MailDoc.CREATERICHTEXTITEM (Attachment3)
End If

'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
MailDoc.Send 0, Recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
MsgBox "Traitement terminé"
End Sub

pour explication voici le fonctionnement de mon petit fichier en B3
j'ai une liste choix qui me permet d'afficher en C3 les n° de
portable avec @sms séparé avec ; ; je
remplis la cellule B6 et je lance ma macro avec un bouton mais la
impossible d'envoyer plusieurs mail ou sms. snifff une idée ??


a j'oubliais je suis extrèmemant nul sous Excel ;-)

merci de vos reponses.

Avatar
Daniel.C
Oups. Parti contre mon gré.
Daniel
"Daniel.C" a écrit dans le message de news:

La cellule que tu indiques comme destinataire est la cellule B4 de la
feuille "Sub test1()
rep = MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro",
vbYesNo)
If rep = vbNo Then Exit Sub
' Ici ton code
End Sub

"sleg" a écrit dans le message de news:

On 26 fév, 13:48, "Daniel.C" wrote:
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en
A1:A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =".

merci d'avance de vos reponses.


voici ma macro :

Sub SendNotesSMS()
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database
name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)

'Dim Plage As Range, T As Variant, A As Long
'Dim Shap As Object, B As Integer
Dim c As Range, Texte As String
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems
you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName)
- InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value
MailDoc.CopyTo = Worksheets("Sms_sender").Cells(5, 2).Value
MailDoc.Subject = Worksheets("Sms_sender").Cells(6, 2).Value
MailDoc.body = ""
For Each c In Sheets(1).Range("D6:D6")
If c.Font.ColorIndex = 46 Then
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
End If
Next c
MailDoc.body = Texte
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(1).Cells(21, 50).Value
Attachment2 = Worksheets(1).Cells(22, 50).Value
Attachment3 = Worksheets(1).Cells(23, 50).Value
If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> ""
Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment1,
"Attachment1")
MailDoc.CREATERICHTEXTITEM (Attachment1)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment2,
"Attachment2")
MailDoc.CREATERICHTEXTITEM (Attachment2)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment3")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment3,
"Attachment3")
MailDoc.CREATERICHTEXTITEM (Attachment3)
End If

'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
MailDoc.Send 0, Recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
MsgBox "Traitement terminé"
End Sub

pour explication voici le fonctionnement de mon petit fichier en B3
j'ai une liste choix qui me permet d'afficher en C3 les n° de
portable avec @sms séparé avec ; ; je
remplis la cellule B6 et je lance ma macro avec un bouton mais la
impossible d'envoyer plusieurs mail ou sms. snifff une idée ??


a j'oubliais je suis extrèmemant nul sous Excel ;-)

merci de vos reponses.




Avatar
sleg
Merci ça amrche impec

donc les destinataire se trouve ne B4 et le texte a envoyer en B6.

et ça marche nickel grand merci a toi

bonne journéee.


On 26 fév, 15:01, "Daniel.C" wrote:
Oups. Parti contre mon gré.
Daniel
"Daniel.C" a écrit dans le message de news:




La cellule que tu indiques comme destinataire est la cellule B4 de la
feuille "Sub test1()
rep = MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro",
vbYesNo)
If rep = vbNo Then Exit Sub
' Ici ton code
End Sub

"sleg" a écrit dans le message de news:

On 26 fév, 13:48, "Daniel.C" wrote:
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en
A1:A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mail s a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =".

merci d'avance de vos reponses.


voici ma macro :

Sub SendNotesSMS()
'Set up the objects required for Automation into lotus notes
   Dim Maildb As Object 'The mail database
   Dim UserName As String 'The current users notes name
   Dim MailDbName As String 'THe current users notes mail database
name
   Dim MailDoc As Object 'The mail document itself
   Dim AttachME As Object 'The attachment richtextfile object
   Dim Session As Object 'The notes session
   Dim EmbedObj As Object 'The embedded object (Attachment)

   'Dim Plage As Range, T As Variant, A As Long
   'Dim Shap As Object, B As Integer
   Dim c As Range, Texte As String
   'Start a session to notes
   Set Session = CreateObject("Notes.NotesSession")
   'Get the sessions username and then calculate the mail file name
   'You may or may not need this as for MailDBname with some systems
you
   'can pass an empty string
   UserName = Session.UserName
   MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserNam e)
- InStr(1, UserName, " "))) & ".nsf"
   'Open the mail database in notes
   Set Maildb = Session.GETDATABASE("", MailDbName)
    If Maildb.IsOpen = True Then
         'Already open for mail
    Else
        Maildb.OPENMAIL
    End If
   'Set up the new mail document
   Set MailDoc = Maildb.CREATEDOCUMENT
   MailDoc.Form = "Memo"
   MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value
   MailDoc.CopyTo = Worksheets("Sms_sender").Cells(5, 2).Value
   MailDoc.Subject = Worksheets("Sms_sender").Cells(6, 2).Value
   MailDoc.body = ""
For Each c In Sheets(1).Range("D6:D6")
   If c.Font.ColorIndex = 46 Then
       If c.Column = 10 Then
           Texte = Texte & c & Chr(10)
       Else
           Texte = Texte & c & " "
       End If
   End If
Next c
  MailDoc.body = Texte
  MailDoc.SaveMessageOnSend = SaveIt
   'Set up the embedded object and attachment and attach it
   Attachment1 = Worksheets(1).Cells(21, 50).Value
   Attachment2 = Worksheets(1).Cells(22, 50).Value
   Attachment3 = Worksheets(1).Cells(23, 50).Value
   If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> ""
Then
       Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1" )
       Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachmen t1,
"Attachment1")
       MailDoc.CREATERICHTEXTITEM (Attachment1)
       Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2" )
       Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachmen t2,
"Attachment2")
       MailDoc.CREATERICHTEXTITEM (Attachment2)
       Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment3" )
       Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachmen t3,
"Attachment3")
       MailDoc.CREATERICHTEXTITEM (Attachment3)
   End If

   'Send the document
   MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
   MailDoc.Send 0, Recipient

   'Clean Up
   Set Maildb = Nothing
   Set MailDoc = Nothing
   Set AttachME = Nothing
   Set Session = Nothing
   Set EmbedObj = Nothing
   MsgBox "Traitement terminé"
End Sub

pour explication voici le fonctionnement de mon petit fichier en B3
j'ai une liste  choix qui me permet d'afficher en C3 les  n° de
portable avec @sms séparé avec ; ; je
remplis la cellule B6 et je lance ma macro avec un bouton mais la
impossible d'envoyer plusieurs mail ou sms. snifff une idée ??

a  j'oubliais je suis extrèmemant nul sous Excel ;-)

merci de vos reponses.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Mgr Banni
ça t'apprendra à mener deux parties d'échecs en même temps, daniel :-)
Mgr T.B.

"Daniel.C" a écrit dans le message de news:

Oups. Parti contre mon gré.
Daniel
"Daniel.C" a écrit dans le message de news:

La cellule que tu indiques comme destinataire est la cellule B4 de la
feuille "Sub test1()
rep = MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro",
vbYesNo)
If rep = vbNo Then Exit Sub
' Ici ton code
End Sub

"sleg" a écrit dans le message de news:

On 26 fév, 13:48, "Daniel.C" wrote:
Bonjour.
Tu dois passer un array de destinataires; si tes destinataires sont en
A1:A3
:
Destis = Range("A1:A3").Value
Ensuite, tu mets :
MailDoc.Sendto = Destis
Cordialement.
Daniel
"sleg" a écrit dans le message de news:

Bonjour,

Voila J'ai une macro (trouvée ici même ;-) ) pour envoyé des mails a
partir d'excel ( sous lotus notes ) et je voudrais savoir s'il est
possible de demander a excel de prendre les adresses mail dans un
celulle d'une feuille? si oui comment faire cela avec " MailDoc.Sendto
=".

Seconde petite chose. est il possible dans une cellule de mettre
plusieurs adresse mail et de l'utiliser avec " MailDoc.Sendto =".

merci d'avance de vos reponses.


voici ma macro :

Sub SendNotesSMS()
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database
name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)

'Dim Plage As Range, T As Variant, A As Long
'Dim Shap As Object, B As Integer
Dim c As Range, Texte As String
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems
you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName)
- InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.Sendto = Worksheets("Sms_sender").Cells(4, 2).Value
MailDoc.CopyTo = Worksheets("Sms_sender").Cells(5, 2).Value
MailDoc.Subject = Worksheets("Sms_sender").Cells(6, 2).Value
MailDoc.body = ""
For Each c In Sheets(1).Range("D6:D6")
If c.Font.ColorIndex = 46 Then
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
End If
Next c
MailDoc.body = Texte
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(1).Cells(21, 50).Value
Attachment2 = Worksheets(1).Cells(22, 50).Value
Attachment3 = Worksheets(1).Cells(23, 50).Value
If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> ""
Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment1,
"Attachment1")
MailDoc.CREATERICHTEXTITEM (Attachment1)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment2")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment2,
"Attachment2")
MailDoc.CREATERICHTEXTITEM (Attachment2)
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment3")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment3,
"Attachment3")
MailDoc.CREATERICHTEXTITEM (Attachment3)
End If

'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
MailDoc.Send 0, Recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
MsgBox "Traitement terminé"
End Sub

pour explication voici le fonctionnement de mon petit fichier en B3
j'ai une liste choix qui me permet d'afficher en C3 les n° de
portable avec @sms séparé avec ; ; je
remplis la cellule B6 et je lance ma macro avec un bouton mais la
impossible d'envoyer plusieurs mail ou sms. snifff une idée ??


a j'oubliais je suis extrèmemant nul sous Excel ;-)

merci de vos reponses.








Avatar
Daniel.C
"Mgr Banni" a écrit dans le message de news:

ça t'apprendra à mener deux parties d'échecs en même temps, daniel :-)
Mgr T.B.


La seule fois que j'ai joué en parties simultanées, ce n'étais pas moi qui
étais seul contre tous. Ca ne m'a pas empêché de me faire sortir dans les
premiers !
Daniel