Laravel 5.4 Отключить регистрацию маршрута

Dim OutApp As Object, OutMail As Object, LogFile As String
Dim cell As Range, S As String, WMBody As String, lFile As Long

S = Environ("appdata") & "\Microsoft\Signatures\"
If Dir(S, vbDirectory) <> vbNullString Then S = S & Dir$(S & "*.htm") Else S = ""
S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1,  -2).ReadAll

WMBody = "<br>Hi All,<br><br>" & _
         "Last line,<br><br>" & S 'Add the Signature to end of HTML Body

Просто подумал, что я поделюсь своим достижением. Не слишком уверен в правильности определения определяющих переменных, но он мал и легко читается, что мне нравится.

Я прикрепляю WMBody к .HTMLBody в объекте Outlook.Application OLE.

Надеюсь, что это кому-то поможет.

Спасибо, Уэс.

33
задан Uzair 29 January 2019 в 09:45
поделиться