kinkalero
XLDnaute Occasionnel
Bonjour le forum,
Je pense que tout le monde est en forme puisque nous sommes vendredi et que ce soir c le week end.
Mon souci est que j'ai le code suivant pour envoyer un mail:
Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
Set doc = db.CREATEDOCUMENT()
With doc
.form = "Memo"
.SendTo = "xxxxx.xxxxx@xxxxx.com"
.CopyTo = ""
.Subject = "Demande de Métrologie"
.body = "Vous avez une nouvelle demande de métrologie"
.From = Session.COMMONUSERNAME
.PostedDate = Now
.SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing
Mais je souhaite envoyer dans le "body" une "image" d'une feuille de mon classeur.
Je suis encore novice dans le service et je n'arrive pas a trouver la solution adapté pour moi dans le forum. Si qlq à une formule pour copier UNE feuille du classeur au format GIF ou HTML......
Merci d'avance pour votre collaboration
Kinkalero
Je pense que tout le monde est en forme puisque nous sommes vendredi et que ce soir c le week end.
Mon souci est que j'ai le code suivant pour envoyer un mail:
Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
Set doc = db.CREATEDOCUMENT()
With doc
.form = "Memo"
.SendTo = "xxxxx.xxxxx@xxxxx.com"
.CopyTo = ""
.Subject = "Demande de Métrologie"
.body = "Vous avez une nouvelle demande de métrologie"
.From = Session.COMMONUSERNAME
.PostedDate = Now
.SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing
Mais je souhaite envoyer dans le "body" une "image" d'une feuille de mon classeur.
Je suis encore novice dans le service et je n'arrive pas a trouver la solution adapté pour moi dans le forum. Si qlq à une formule pour copier UNE feuille du classeur au format GIF ou HTML......
Merci d'avance pour votre collaboration
Kinkalero