Re : Integrer la valeur d'une cellule en VBA
Votre code m'interesse ! Je sais toujours pas comment integrer des valeurs de cellules dans le coprs de mon message. (je ne veus pas de piece jointe)
Option Explicit
Sub SendNotesMsg()
'*******************************************************************************
Dim oSess As Object
Dim oDB As Object
Dim oDoc As Object
Dim oItem As Object
' Variable TEXTE
Dim ntsServer As String
Dim ntsMailFile As String
'
Dim EMailSendTo As String
Dim EMailCopyTo As String
Dim EMailSubject As String
Dim MailPJ As String
Dim LotusSRV As String
Dim WbkName As String
'*****************************************************************************
On Error GoTo err_SendNotesMsg
' Initialisation des variables
EMailSendTo = "Ploum"
EMailCopyTo = "Adresse Mail de copie"
EMailSubject = "Test Subj"
' Créer une nouvelles session Notes
Set oSess = CreateObject("Notes.NotesSession")
' Récupérer le nom du serveur
ntsServer = oSess.GetEnvironmentString("MailServer", True)
'Acquière le nom du fichier mailfile de l'utilisateur courant dans Notes.ini
ntsMailFile = oSess.GetEnvironmentString("MailFile", True)
Set oDB = oSess.GetDatabase(ntsServer, ntsMailFile)
Set oDoc = oDB.CreateDocument
' Définit les éléments à rajouter au message
Set oItem = oDoc.createRichTextItem("BODY")
oDoc.Form = "Memo"
' Préparer les destinataires
oDoc.Sendto = EMailSendTo
If Not IsMissing(EMailCopyTo) Then
oDoc.Copyto = EMailCopyTo
End If
' Préparer le sujet du message
If Not IsMissing(EMailSubject) Then
If EMailSubject <> "" Then oDoc.Subject = EMailSubject
End If
oDoc.FROM = oSess.CommonUserName
oDoc.PostedDate = Date
' Pour avoir un accusé de réception
oDoc.ReturnReceipt = "1"
'
' Préparer les texte
With oItem
.AppendText "CECI EST MON TEXTE (LIGNE1)"
.AddNewLine 1
.AppendText "CECI EST MON TEXTE (LIGNE2)"
.AddNewLine 2
End With
' Créer la pièce jointe
' Ca peut être le classeur
WbkName = ThisWorkbook.FullName
'Attachement du classeur au mail
Call oItem.embedObject(1454, "", "P:\Documents\Book1.xls", "")
' Ou Attachement d'un document
'Call oItem.embedObject(1454, "", "Chemin et nom complet du doc","")
' Message de salutation
oItem.AddNewLine 1
oItem.AppendText "Cordialement"
' Envoyer le message
oDoc.send False
'
MsgBox "Le message a été envoyé", vbInformation, "MESSAGE LOTUS ..."
exit_SendNotesMsg:
On Error Resume Next
Set oSess = Nothing
Set oDB = Nothing
Set oDoc = Nothing
Set oItem = Nothing
Exit Sub
err_SendNotesMsg:
If Err.Number = 7225 Then
MsgBox "Impossible d'attacher le fichier, vérifier le chemin!", vbCritical
Else
MsgBox "[" & Err.Number & "]: " & Err.Description
End If
MsgBox "Message non envoyé suite erreur!", vbCritical
Resume exit_SendNotesMsg
End Sub