Envoi au format Lotus Notes email texte enrichi à partir d'Excel VBA

Question

Tout en essayant d'utiliser les conseils dans votre réponse à

Sending formatted Lotus Notes rich text email from Excel VBA

que je pouvais faire presque tout ce que je avais besoin: écrire plusieurs lignes avec des données provenant une base de données à moi, formatant le corps au moyen du code html, avec des liens et du texte formaté.

J'ai aussi besoin de mettre une image dans le corps du courrier, mais le code html "img src =" etc. ne fonctionne pas, peut-être parce que l'image est située sur mon PC et n'est pas atteinte par les destinataires. Je dois trouver un moyen d'intégrer l'image comme je le ferais au moyen des menus Lotus. Dans mon Lotus Notes 7 italien, il y a un menu Créer avec une option Image, je trouve l'image, cliquez sur OK et c'est fait.

C'est ce que je souhaite faire avec mon code, s'il vous plaît dites-moi que c'est possible! :-)

Merci d'avance.

Riccardo Baldinotti, Italie

Answer 1

Here vous trouverez le code complet. Il est trop grand pour coller ici, donc je copier quelques lignes pour montrer l'idée:

If (bSetImages) Then 
     For iImageIndex = 0 To Ubound(imageFilePaths) 

       ' Get the image file path and content id (cid). 
       strImagePath = Trim(imageFilePaths(iImageIndex)) 
       If (strImagePath = "") Then Exit Sub 
       strImageCid = Trim(imageContentIds(iImageIndex)) 
       If (strImageCid = "") Then Exit Sub 

       ' Get the image context type. 
       If (StrContains(strImagePath, ".", True)) Then strImageExt = Strrightback(strImagePath, ".") Else strImageExt = "" 
       Select Case Lcase(strImageExt) 
       Case "gif":  strImageType = "image/gif" 
       Case "jpg":  strImageType = "image/jpg" 
       Case Else:  strImageType = "image/gif" 
       End Select 

       ' Add the image part. 
       Set mimeImage = mimeBody.CreateChildEntity() 
       Set mimeImageHeader = mimeImage.CreateHeader({Content-ID}) 
       Call mimeImageHeader.SetHeaderVal("<" & strImageCid & ">") 
       Call stream.Open(strImagePath) 
       Call mimeImage.SetContentFromBytes(stream, strImageType & {;name="} + strImageCid + {"}, ENC_IDENTITY_BINARY) 
       Call stream.Close() 

     Next 
    End If 

Answer 2

A l'adresse

http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/dcbf91b97004f0af8525773e002867a9?OpenDocument

J'ai trouvé une solution, et maintenant mon corps mail a une image dedans.

Voici mon code.

Call stream.Open("<MY IMAGE PATH>") 
Set body = MailDoc.CreateMIMEEntity '("memo") 
Set richTextHeader = body.CreateHeader("Content-Type") 
Call richTextHeader.SetHeaderVal("multipart/mixed") 
Set mimeImage = body.CreateChildEntity() 
strImageType = "image/jpeg" 'Other formats are "image/gif" "image/bmp" 
Call mimeImage.SetContentFromBytes(stream, strImageType, ENC_IDENTITY_BINARY) 
Call stream.Close 

Cordialement