Sub TEST01() Dim oApp As Outlook.Application Dim objMAIL As Outlook.MailItem Dim strMOJI(1) As String Dim n As Long Dim strDate As String Dim strLastWeekBegin As String Dim strLastWeekEnd As String Dim SigString As String strDate = Date 'オアヌーネユニレ strDate = Replace(strDate, "-", "") strLastWeekBegin = Date - 7 strLastWeekBegin = Replace(strLastWeekBegin, "-", "") strLastWeekEnd = Date - 2 strLastWeekEnd = Replace(strLastWeekEnd, "-", "") SigString = "C:\Documents and Settings\" & Environ("username") & _ "\Application Data\Microsoft\Signatures\mySign.htm" If Dir(SigString) <> "" Then SigString = GetBoiler(SigString) Else SigString = "" End If On Error Resume Next Set oApp = GetObject(, "Outlook.Application") On Error GoTo 0 If oApp Is Nothing Then Set oApp = CreateObject("Outlook.Application") oApp.GetNamespace("MAPI").GetDefaultFolder(6).display End If Set objMAIL = oApp.CreateItem(0) strMOJI(0) = "クサチ・シ」ャノマホ郤テ」コ" & "<br>" & _ "クスシヨミハヌノマヨワオトマ鍗ソスネアィク譽ャヌ・鰆ト。」" & "<br>" & _ "ミサミサ」。" & "<br>" strMOJI(1) = SigString objMAIL.To = "jacky.ye@gmail.com" objMAIL.Subject = "マ鍗ソスネアィク・ & "(" & strLastWeekBegin & "-" & strLastWeekEnd & ")" objMAIL.BodyFormat = 2 'HTMLミホハス objMAIL.HTMLBody = strMOJI(0) & "<br>" & strMOJI(1) objMAIL.Attachments.Add "C:\Test.doc", olByValue, 1, "Test" 'クスシ objMAIL.display 'n = Len(strMOJI(0)) 'ActiveSheet.Range("A1:D10").Copy 'oApp.ActiveInspector.WordEditor.Range(n, n).Paste 'Application.CutCopyMode = False Set objMAIL = Nothing Set oApp = Nothing End Sub Function GetBoiler(ByVal sFile As String) As String Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function
VBA读取Outlook的签名文件
最新推荐文章于 2022-03-30 22:15:00 发布