Comment ajouter le contenu d'un fichier .htm à une chaîne?

Question

Je souhaite ajouter la signature par défaut à la fin d'un courrier électronique envoyé à partir d'une formulaire d'utilisateur dans Excel.Cependant, en raison du corps en train d'être HTML (pour la raison, je ne peux pas changer) la signature qu'il ne figure pas.

J'ai le code suivant qui est l'emplacement de la signature par défaut.htm:

strSig = Environ("AppData") & "\Microsoft\Signatures\Default.htm"

Ce que je dois maintenant faire (et que j'ai des problèmes avec des problèmes) ajoutez le contenu de ce fichier par défaut.htm à la fin du corps de l'e-mail.Cependant, faire

.HTMLBody =  "some text <br>" & strSig

Il ajoute simplement le chemin de localisation sous forme de texte à l'e-mail.

Comment puis-je l'obtenir pour insérer le contenu du fichier HTML?

Answer 1

Voici un moyen de le faire

Dim FSO As Object : Set FSO = CreateObject("Scripting.FileSystemObject")

Dim strSig As String
Dim pthSig As String

pthSig = Environ("AppData") & "\Microsoft\Signatures\Default.htm"
strSig = FSO.OpenTextFile(pthSig).ReadAll ' signature content

.HTMLBody =  "some text <br>" & strSig

Answer 2

Vous devez d'abord lire le contenu du fichier du chemin.

Dim ff As Integer, sigTxt as String

ff = FreeFile
Open strSig For Input As #ff
    sigTxt = Input$(LOF(1), 1)
Close

.HTMLBody = sigTxt