Votre question

Macro Lotus : Date dans le sujet / selection de cellules dans le corps

Tags :
  • Microsoft Excel
  • Programmation
  • VB
Dernière réponse : dans Programmation
30 Octobre 2008 10:20:02

Bonjour,

La macro suivante envoi par Email sur Lotus Notes le document excel ouvert.

Pour finir ma macro, je rencontre deux problème :

1) Dans le champs du sujet du mail, je voudrais que s'affiche automatiquement à côté du mot Control la date dd/mm/yyyy de la veille.
Je ne parviens pas à utiliser le code : "Controls " & Format(Day(Date) - 1, "") & " " & Format(Month(Date), "") & " " & Trim(Year(Date))

2) Dans le corps du mail, je voudrais afficher une plage de cellule du document excel : ex Range("A3:E6").

Pourriez-vous m'aider à résoudre ces problèmes s'il vous plaît?

J'utilise Excel 2003 et Lotus Notes

Voici ma macro :

Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object

Function SendMail()

On Error GoTo SendMailError

EMailSendTo = Split("email1, email2", ",")
EMailCCTo = Split("email3, email4", ",")

Set objNotesSession = CreateObject("Notes.NotesSession")

Set objNotesMailFile = objNotesSession.GETDATABASE("", "")

objNotesMailFile.OPENMAIL

Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT

Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", "Control & Format(Date - 1, dd mm yyyy)")

Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)

Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)

Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")

With objNotesField
.APPENDTEXT "corps du mail"
.ADDNEWLINE 1
.APPENDTEXT "signature"
.ADDNEWLINE 2
End With

objNotesField = objNotesField.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)

objNotesDocument.Send (0)

Set objNotesSession = Nothing
Set bjNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing

SendMail = True

Exit Function

SendMailError:
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext

SendMail = False

End Function


Merci par avance,

Cécile

Autres pages sur : macro lotus date sujet selection cellules corps

a b L Programmation
31 Octobre 2008 20:04:17