mail lotus copier corps message

[ptisinge]

bonjour je cherche a copier une serie de données dans une feuille et la copier dans le corps du message.
avec le code ci dessous j'arrive a envoyer un mail avec une piece jointe mai je voudrai mettre dans le corps du mail une serie de données qui sont dans sheets("Sheet1").range("F6:h26")

merci pour votre aide

Private Sub envoi_mail()
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim rtitem As Object
Dim object As Object
Dim nom As String
Dim myTableau As String
nom = ActiveWorkbook.FullName

On Error GoTo TraiteErreur

' Ouverture d'une session NOTES
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GetDatabase("", "")
Call db.OPENMAIL

' Création du mail
Set doc = db.CreateDocument()
doc.Form = "Memo"
doc.SendTo = "xxx@yyyyy.com"
doc.Subject = "Petit test"
doc.From = Session.CommonUserName


'piece jointe
Set rtitem = doc.CreateRichTextItem("body2")
Call rtitem.AppendText("Veuillez trouver ci-joint le fichier ")
Set object = rtitem.EmbedObject(1454, "", nom, "")

' Envoi du mail
Call doc.Save(True, True)
Call doc.Send(False)

Set object = Nothing
Set rtitem = Nothing
Set doc = Nothing
Set db = Nothing
Set Session = Nothing

Exit Sub

TraiteErreur:
MsgBox "Une erreur est survenue durant l'envoi.", vbCritical, "Passage en Urgence"
Set object = Nothing
Set rtitem = Nothing
Set doc = Nothing
Set db = Nothing
Set Session = Nothing
Set fs = Nothing

End Sub

 

[Kobaya]

Re : mail lotus copier corps message

bonjour ptisinge,

Désolé, je n'ai pas de solution à te proposer, et pour cause : moi aussi je cherche à pouvoir coller dans le corps d'un mail Notes une plage de cellules copiées dans Excel 😱.
Le reste marche très bien, malheureusement, je n'ai pas encore trouvé ce truc...

 

[TETRAM]

Re : mail lotus copier corps message

Bonjour Ptisinge, Kobaya,

Voilà un code que j'avais trouver quand j'ai fais la même recherche en espérant qu'il vous aidera.
' Faire une liaison vers les objets "Lotus Domino Objects"
' ex d'utilisation :
' SendNotesMail("test@test.com", False, "Joli sujet", "Ceci est le texte de mon mail !")
Public Sub SendNotesMail(Recipient As String, SaveIt As Boolean, Optional Subject As String, Optional BodyText As String)

' Initialisation des objets
Dim domSession As New Domino.NotesSession
Dim domDatabase As New Domino.NotesDatabase
Dim domDocument As NotesDocument
Dim strMailDbName As String

On Error GoTo End_Error

' Initialisation de la session Notes - utilisez votre password dans le cas d'un fichier ID protégé
' Le paramètre est à supprimer dans le cas contraire
domSession.Initialize ("********")


' Le chemin est soit relatif si la base est sur le serveur, soit absolu si elle est en local
strMailDbName = "U:\Lotus\Notes\Data\base.nsf"

' Récupération de la base de courrier en fonction du nom
Set domDatabase = domSession.GetDatabase(domSession.ServerName, strMailDbName, False)

' Ouverture de la base si un client ne l'a pas déjà fait
If Not domDatabase.IsOpen = True Then
domDatabase.Open
End If

' Création du mail à envoyer
Set domDocument = domDatabase.CreateDocument
' Définition du type de document
domDocument.AppendItemValue "Form", "Memo"
' Définition du sujet
domDocument.AppendItemValue "Subject", Subject
' Définition du corps du mail
domDocument.AppendItemValue "Body", BodyText
' Définition de la date d'envoi
domDocument.AppendItemValue "PostedDate", Now()
' Sauvegarde ou non du mail à l'envoi
domDocument.SaveMessageOnSend = SaveIt
' Envoi du mail
' Attention, Recipient doit toujours être renseigné sous peine d'exception
domDocument.Send 0, Recipient

' Libération des objets
Set domDocument = Nothing
Set domDatabase = Nothing
Set domSession = Nothing

Exit Sub

End_Error:
' Traitement éventuel de l'exception
MsgBox ("Erreur : " & Err.Number & "; " & Err.Description)
End Sub