envoi mail de EXCEL avec LOTUS

Le
sleg
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5167941
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"
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.
sleg
Le #5167831
On 26 fév, 13:48, "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"
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.

Daniel.C
Le #5167811
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"
On 26 fév, 13:48, "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"
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.

Daniel.C
Le #5167801
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"
On 26 fév, 13:48, "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"
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.

Daniel.C
Le #5167791
Oups. Parti contre mon gré.
Daniel
"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"
On 26 fév, 13:48, "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"
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.




sleg
Le #5167761
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"
Oups. Parti contre mon gré.
Daniel
"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"
On 26 fév, 13:48, "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"
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 -




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

"Daniel.C"
Oups. Parti contre mon gré.
Daniel
"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"
On 26 fév, 13:48, "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"
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.








Daniel.C
Le #5167671
"Mgr Banni"
ç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

Publicité
Poster une réponse
Anonyme