excel sendmail via lotus

Le
sbtlg
Bonjour,

Bon ben voila g un gros probleme et je suis un grand débutant, j'ai
cherché sur le net et ici mais je ne trouve pas de solution a mon
probleme.

J'ai trouvé une macro pour envoyer des mails a partir d'excel mais via
Lotus note, la voici et mon probleme est que je n'arrive pas a
selectionner une plage de cellule et de copier coller cette selection
dans le body du mail en gardant la couleur des textes.


Donc voici la macro :

Sub SendNotesMail()
'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)
'ajout pour plage de cellule
Dim Plage As Range, T As Variant, A As Long
Dim Shap As Object, B As Integer
'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 = "user@serveur.com" 'Worksheets(3).Cells(2, 2).Value
MailDoc.CopyTo = ""
MailDoc.Subject = Worksheets(1).Cells(1, 1).Value
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
Attachment1 = Worksheets(3).Cells(21, 50).Value
Attachment2 = Worksheets(3).Cells(22, 50).Value
Attachment3 = Worksheets(3).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

End Sub

Merci de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4608901
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord") n'est
pas vierge.
Cordialement.
Daniel
sbtlg
Le #4608831
Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?


On 4 juil, 11:55, "Daniel"
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord") n' est
pas vierge.
Cordialement.
Daniel


Daniel
Le #4608811
Dommage. A part ça, je ne travaille plus avec Lotus depuis un bail...Essaie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?


On 4 juil, 11:55, "Daniel"
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord") n'est
pas vierge.
Cordialement.
Daniel


sbtlg
Le #4608781
désolé marche pas et j'ai une erreur d'execution 7078 coud'nt create
field %1. :-(

une autre idee :-)

merci encore



On 4 juil, 12:36, "Daniel"
Dommage. A part ça, je ne travaille plus avec Lotus depuis un bail...Es saie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?

On 4 juil, 11:55, "Daniel"


' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord") n'est
pas vierge.
Cordialement.
Daniel- Masquer le texte des messages précédents -


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



Daniel
Le #4608721
Désolé, en plus, c'était idiot.
Daniel

désolé marche pas et j'ai une erreur d'execution 7078 coud'nt create
field %1. :-(

une autre idee :-)

merci encore



On 4 juil, 12:36, "Daniel"
Dommage. A part ça, je ne travaille plus avec Lotus depuis un
bail...Essaie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?

On 4 juil, 11:55, "Daniel"


' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord")
n'est
pas vierge.
Cordialement.
Daniel- Masquer le texte des messages précédents -


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



Daniel
Le #4608671
Après recherche sur le net, MailDoc.Body doit recevoir une valeur string
(texte). Donc tu peux mettre :
MailDoc.Body = "ceci est une chaîne string"
Tu peux aussi mettre
MailDoc.Body = Worksheets("Tableau de bord").Range("D15").value (dans ce cas
la valeur récupérée est considérée comme une chaîne texte)
Par contre, tu ne peux pas lui passer une plage de cellules qui est de type
Range ou la valeur de cette plage qui est de type Array.
tu peux essayer de regrouper les cellules de la plage avec le code :

Dim c As Range, Texte As String
For Each c In Sheets(1).Range("D15:J65")
If c.Column = 10 Then
Texte = Texte & Chr(10) & c & " "
Else
Texte = Texte & c & " "
End If
[A1] = Texte
Next c
et ensuite :
MailDoc.Body = Texte
Daniel

désolé marche pas et j'ai une erreur d'execution 7078 coud'nt create
field %1. :-(

une autre idee :-)

merci encore



On 4 juil, 12:36, "Daniel"
Dommage. A part ça, je ne travaille plus avec Lotus depuis un
bail...Essaie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?

On 4 juil, 11:55, "Daniel"


' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord")
n'est
pas vierge.
Cordialement.
Daniel- Masquer le texte des messages précédents -


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



Ellimac
Le #4608661
Bonjour,

Pas sûr que la zone Body de Lotus accepte une plage de cellules. J'ai un
exemple dans lequel c'est du texte qui est récupéré

Camille

"" wrote:

Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?


On 4 juil, 11:55, "Daniel"
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord") n'est
pas vierge.
Cordialement.
Daniel







Daniel
Le #4608631
Plutôt :

Dim c As Range, Texte As String
For Each c In Sheets(1).Range("D15:J65")
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
[A1] = Texte
Next c

Daniel
"Daniel"
Désolé, en plus, c'était idiot.
Daniel

désolé marche pas et j'ai une erreur d'execution 7078 coud'nt create
field %1. :-(

une autre idee :-)

merci encore



On 4 juil, 12:36, "Daniel"
Dommage. A part ça, je ne travaille plus avec Lotus depuis un
bail...Essaie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tableau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vierge .

Merci de tin aide aurais tu une autre id"e ?

On 4 juil, 11:55, "Daniel"


' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord")
n'est
pas vierge.
Cordialement.
Daniel- Masquer le texte des messages précédents -


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








sbtlg
Le #4608601
Merci, la ça marche pour l'envoi du mail mais le probleme c que mon
tableau se vide et je me retrouve avec tout en A1. est il possible de
garder la structure de ma page ligne par ligne dans une seul cellule
et est il possible de garde les couleurs des lignes ? ou est il
possible de faire une capture ecran et de la coller dans le body du
mail ?

Merci d'avance de votre aide.


On 4 juil, 14:45, "Daniel"
Plutôt :

Dim c As Range, Texte As String
For Each c In Sheets(1).Range("D15:J65")
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
[A1] = Texte
Next c

Daniel
"Daniel"



Désolé, en plus, c'était idiot.
Daniel

désolé marche pas et j'ai une erreur d'execution 7078 coud'nt create
field %1. :-(

une autre idee :-)

merci encore

On 4 juil, 12:36, "Daniel"
Dommage. A part ça, je ne travaille plus avec Lotus depuis un
bail...Essaie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tablea u de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vier ge .

Merci de tin aide aurais tu une autre id"e ?

On 4 juil, 11:55, "Daniel"
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bord ")
n'est
pas vierge.
Cordialement.
Daniel- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -



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





sbtlg
Le #4608581
On 4 juil, 15:40, wrote:
Merci, la ça marche pour l'envoi du mail mais le probleme c que mon
tableau se vide et je me retrouve avec tout en A1. est il possible de
garder la structure de ma page ligne par ligne dans une seul cellule
et est il possible de garde les couleurs des lignes ? ou est il
possible de faire une capture ecran et de la coller dans le body du
mail ?

Merci d'avance de votre aide.

On 4 juil, 14:45, "Daniel"


Plutôt :

Dim c As Range, Texte As String
For Each c In Sheets(1).Range("D15:J65")
If c.Column = 10 Then
Texte = Texte & c & Chr(10)
Else
Texte = Texte & c & " "
End If
[A1] = Texte
Next c

Daniel
"Daniel"

Désolé, en plus, c'était idiot.
Daniel

désolé marche pas et j'ai une erreur d'execution 7078 coud'nt cre ate
field %1. :-(

une autre idee :-)

merci encore

On 4 juil, 12:36, "Daniel"
Dommage. A part ça, je ne travaille plus avec Lotus depuis un
bail...Essaie
en mettant :
MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65").value
(mais j'y crois pas beaucoup)
Daniel

Désolé ça ne marche pas et le nom de ma feuille est bien "Tabl eau de
bord".

sniff
et je ne vois pas pourquoi ça ne marche pas je reçois un mail vi erge .

Merci de tin aide aurais tu une autre id"e ?

On 4 juil, 11:55, "Daniel"
' la fonction ce-dessous fonctionne mais envoi juste une cellule
'MailDoc.Body = Worksheets(1).Cells(15, 4).Value

Bonjour.
Normal. il s'agit de la cellule D15 de la première feuille.

' la fonction ce-dessous ne fonctionne pas je receptionne un mail
vierge

MailDoc.Body = Worksheets("Tableau de bord").Range("D15:J65")

Essaie :
MailDoc.Body = Worksheets(1).Range("D15:J65")
Pour savoir le nom de Worksheets(1), exécute la macro :
Sub Test()
msgbox sheets(1).Name
End Sub
Sinon, vérifie que la plage D15:J65 de la feuille "Tableau de bo rd")
n'est
pas vierge.
Cordialement.
Daniel- Masquer le texte des messages précédents -


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



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


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


J'oubliais le tableau d'origine ne doit pas etre modifier. comme C'est
le cas avec la modif.

merci d'avance





Publicité
Poster une réponse
Anonyme