Note: The other languages of the website are Google-translated. Back to English

在Excel中發送電子郵件時如何插入Outlook簽名?

假設您想直接在 Excel 中發送電子郵件,如何在電子郵件中添加默認的 Outlook 簽名? 本文提供了兩種方法來幫助您在 Excel 中發送電子郵件時添加 Outlook 簽名。

通過Excel VBA發送時將簽名插入Outlook電子郵件
使用出色的工具在Excel中發送電子郵件時輕鬆插入Outlook簽名

有關在Excel中發送郵件的更多教程...


通過Excel VBA發送時將簽名插入Outlook電子郵件

例如,工作表中有一個電子郵件地址列表,用於向 Excel 中的所有這些地址發送電子郵件,並在電子郵件中添加默認的 Outlook 簽名。 請應用下面的 VBA 代碼來實現它。

1.打開包含要通過電子郵件發送到的電子郵件地址列表的工作表,然後按 其他 + F11 鍵。

2.在開幕 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊 然後復制以下內容 VBA 2 進入模塊代碼窗口。

3.現在您需要更換 。身體 排入 VBA 2 與中的代碼 VBA 1. 之後,移動該行 。顯示 線下 使用xMailOut.

VBA 1:在 Excel 中使用 Outlook 默認簽名發送電子郵件的模板

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2:將電子郵件發送到Excel中單元格中指定的電子郵件地址

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

以下屏幕截圖可幫助您在更改VBA代碼後輕鬆找到差異。

4。 按 F5 鍵來運行代碼。 然後一個 Excel的Kutools 選擇框彈出,請選擇您要發送電子郵件的電子郵件地址,然後單擊 確定。

然後創建電子郵件。 您可以看到 Outlook 默認簽名添加在電子郵件正文的末尾。

提示:

  • 1.您可以根據需要更改VBA代碼1中的電子郵件正文。
  • 2.運行代碼後,如果彈出錯誤對話框警告未定義用戶定義類型,請關閉此對話框,然後單擊 工具 > 參考Microsoft Visual Basic for Applications 窗口。 在開幕 參考– VBAProject 窗口中,檢查 Microsoft Outlook對像庫 框並單擊 確定。 然後再次運行代碼。

使用出色的工具在Excel中發送電子郵件時輕鬆插入Outlook簽名

如果您是VBA的新手,強烈建議您 發電子郵件 的效用 Excel的Kutools 為了你。 使用此功能,您可以輕鬆地基於Excel中的某些字段發送電子郵件,並向其中添加Outlook簽名。 請執行以下操作。

申請前 Excel的Kutools首先下載並安裝.

首先,您需要創建一個包含不同字段的郵件列表,您將基於這些字段發送電子郵件。

您可以根據需要手動創建郵件列表,也可以應用“創建郵件列表”功能快速完成。

1。 點擊 Kutools 加 > 創建郵件列表。

2。 在裡面 創建郵件列表 對話框中,指定所需的字段,選擇在何處輸出列表,然後單擊 OK 按鈕。

3.現在,將創建一個郵件列表示例。 由於這是一個示例列表,因此您需要將字段更改為某些所需的內容。 (允許多行)

4.之後,選擇整個列表(包括標題),然後單擊 Kutools 加 > 發電子郵件。

5。 在裡面 發電子郵件 對話框:

  • 5.1)所選郵件列表中的項目會自動放置在相應的字段中;
  • 5.2)完成電子郵件正文;
  • 5.3)同時檢查 通過Outlook發送電子郵件使用Outlook的簽名設置 盒;
  • 5.4)點擊 發送 按鈕。 看截圖:

現在,電子郵件已發送。 並將默認的Outlook簽名添加到電子郵件正文的末尾。

  如果您想免費試用(30-day) 這個實用程序, 請點擊下載,然後按照上述步驟進行操作。


相關文章:

將電子郵件發送到Excel單元格中指定的電子郵件地址
假設您有一個電子郵件地址列表,並且您想直接在Excel中批量向這些電子郵件地址發送電子郵件。 如何實現呢? 本文將向您展示將電子郵件發送到Excel中單元格中指定的多個電子郵件地址的方法。

發送電子郵件,並將指定範圍複製並粘貼到Excel中的電子郵件正文中
在許多情況下,Excel工作表中指定範圍的內容可能對您的電子郵件通信很有用。 在本文中,我們將介紹一種直接在Excel中發送將具有指定範圍的電子郵件粘貼到電子郵件正文中的方法。

發送帶有Excel中附加的多個附件的電子郵件
本文討論的是通過帶有Excel中附加的多個附件的Outlook發送電子郵件。

如果在Excel中已達到到期日期,則發送電子郵件
例如,如果C列中的截止日期小於或等於7天(當前日期為2017/9/13),則向A列中的指定收件人發送電子郵件提醒,並在B列中指定內容。實現這一目標? 本文將提供一種VBA方法來詳細處理它。

根據Excel中的單元格值自動發送電子郵件
假設您要基於Excel中指定的單元格值通過Outlook向特定收件人發送電子郵件。 例如,當工作表中單元格D7的值大於200時,將自動創建一封電子郵件。 本文介紹了一種VBA方法供您快速解決此問題。

有關在Excel中發送郵件的更多教程...


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (29)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
非常感謝你,你用這個模板救了我的命:D
網站主持人對此評論進行了最小化
親愛的法維奧,
樂意效勞。
網站主持人對此評論進行了最小化
不適用於 Office 2016 中的附件
網站主持人對此評論進行了最小化
親愛的克里斯,
下面的 VBA 代碼可以幫助你。 運行代碼後,請選擇包含您將發送電子郵件的電子郵件地址的單元格,然後在彈出第二個對話框時選擇您需要在電子郵件中附加的文件作為附件。 默認的 Outlook 簽名也將顯示在電子郵件正文中。 感謝您的評論。

子 SendEmailToAddressInCells()
將 xRg 調暗為範圍
將 xRgEach 調暗為範圍
將 xRgVal 調暗為字符串
將 xAddress 變暗為字符串
將 xOutApp 調暗為 Outlook.Application
將 xMailOut 調暗為 Outlook.MailItem
在錯誤恢復下一頁
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("請選擇郵箱地址範圍", "KuTools For Excel", xAddress, , , , , 8)
如果 xRg 什麼都不是,則退出 Sub
Application.ScreenUpdating = False
設置 xOutApp = CreateObject("Outlook.Application")
設置 xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
設置 xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
如果 xFileDlg.Show = -1 那麼
對於 xRg 中的每個 xRgEach
xRgVal = xRgEach.Value
如果 xRgVal Like "?*@?*.?*" 那麼
設置 xMailOut = xOutApp.CreateItem(olMailItem)
使用xMailOut
。顯示
.To = xRgVal
.Subject = "測試"
.HTMLBody = "這是用 Excel 發送的測試電子郵件" & "
" & .HTML正文
對於 xFileDlg.SelectedItems 中的每個 xFileDlgItem
.Attachments.Add xFileDlgItem
下一個 xFileDlgItem
'。發送
結束
如果結束
下一頁
設置 xMailOut = 無
設置 xOutApp = 無
Application.ScreenUpdating = True
如果結束
END SUB
網站主持人對此評論進行了最小化
我正在嘗試添加標題為“默認”的 Outlook 簽名,但似乎無法正常工作。
你能幫忙嗎? 我相信我的“xMailout”邏輯是錯誤的。 這是我懷疑的故障區域。

Private Sub CommandButton1_Click()

將 xOutApp 調暗為對象
將 xOutMail 調暗為對象
將 xMailBody 調暗為字符串
將 xMailOut 調暗為 Outlook.MailItem
在錯誤恢復下一頁
設置 xOutApp = CreateObject("Outlook.Application")
設置 xOutMail = xOutApp.CreateItem(0)
xMailBody = "問候:" & vbNewLine & vbNewLine & _
“這是第 1 行” & vbNewLine & _
“這是第 2 行” & vbNewLine & _
“這是第 3 行” & vbNewLine & _
“這是第 4 行”
在錯誤恢復下一頁
使用 xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "此處的電子郵件標題 - " & Range("Cell#").value
.Body = xMailBody
. 附件.添加 ActiveWorkbook.FullName
設置 xMailOut = xOutApp.CreateItem(olMailItem)
使用xMailOut
。顯示
結束
ActiveWorkbook.Save
在錯誤轉到0
設置 xOutMail = 無
設置 xOutApp = 無
END SUB
網站主持人對此評論進行了最小化
美好的一天,
您的腳本已被修改,請嘗試。 謝謝你。

Private Sub CommandButton1_Click()
將 xOutApp 調暗為對象
將 xOutMail 調暗為對象
將 xMailBody 調暗為字符串
將 xMailOut 調暗為 Outlook.MailItem
在錯誤恢復下一頁
設置 xOutApp = CreateObject("Outlook.Application")
設置 xOutMail = xOutApp.CreateItem(0)
xMailBody = "問候:" & vbNewLine & vbNewLine & _
“這是第 1 行” & vbNewLine & _
“這是第 2 行” & vbNewLine & _
“這是第 3 行” & vbNewLine & _
“這是第 4 行”
在錯誤恢復下一頁
使用 xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "此處的電子郵件標題 - " & Range("Cell#").Value
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
設置 xMailOut = xOutApp.CreateItem(olMailItem)
使用xMailOut
。顯示
結束
結束
ActiveWorkbook.Save
在錯誤轉到0
設置 xOutMail = 無
設置 xOutApp = 無
END SUB
網站主持人對此評論進行了最小化
如果宏被多個用戶使用,如何添加簽名。
例如,我的宏也將由另外 3 個人運行。 那麼宏如何使用運行宏的用戶的簽名。
在此先感謝
網站主持人對此評論進行了最小化
美好的一天,
VBA代碼可以自動識別發件人Outlook中的默認簽名,通過Outlook發送帶有自己簽名的郵件。
網站主持人對此評論進行了最小化
如果我的正文文本鏈接到從 excel 字段中提取,則在字符串末尾使用 & .HTMLBody 會擦除所有正文文本並僅留下簽名。
網站主持人對此評論進行了最小化
我在 excel 2016 上運行它時遇到問題。我收到“編譯錯誤:未定義用戶定義類型”消息。 請幫忙!
網站主持人對此評論進行了最小化
高超!!!!
網站主持人對此評論進行了最小化
非常感謝...
網站主持人對此評論進行了最小化
嗨,我的宏需要幫助,我需要在表格下插入 Outlook 簽名,你能幫我嗎?

Private Sub CommandButton1_Click()


昏暗的前景作為對象
將 newEmail 作為對像變暗
將 xInspect 作為對像變暗
將 pageEditor 作為對像變暗

設置 Outlook = CreateObject("Outlook.Application")
設置 newEmail = Outlook.CreateItem(0)

使用新電子郵件
.To = Sheet5.Range("F1")
.CC =“”
.BCC =“”
.Subject = Sheet5.Range("B5")
.Body = Sheet5.Range("B41")
。展示

設置 xInspect = newEmail.GetInspector
設置 pageEditor = xInspect.WordEditor

Sheet5.Range("B6:I7").Copy

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

。展示
設置 pageEditor = 無
設置 xInspect = 無
結束

設置 newEmail = 無
設定前景 = 沒有

END SUB
網站主持人對此評論進行了最小化
嗨,巴拉,
抱歉不能幫你。 謝謝你的評論。
網站主持人對此評論進行了最小化
親,
有人可以幫我解決我的 VBA,
我需要在創建的電子郵件中籤名:
網站主持人對此評論進行了最小化
多虧了你,我現在可以添加簽名,但它會刪除文本段落之間的空格。 請你能幫幫我嗎?


子 helloworld()
將 OutApp 調暗為對象
將 OutMail 作為對像變暗
將單元格調暗為範圍
將路徑變暗為字符串
路徑 = Application.ActiveWorkbook.Path
設置 OutApp = CreateObject("Outlook.Application")

對於範圍內的每個單元格(“C4:C6”)
設置 OutMail = OutApp.CreateItem(0)
隨著OutMail
。顯示
.To = 單元格.Value
.Subject = Cells(cell.Row, "D").Value
.HTMLBody = "親愛的" & Cells(cell.Row, "B").Value & "," _
& vbNewLine & vbNewLine & _
“熱情的問候” _
& vbNewLine & vbNewLine & _
“我們 JK Overseas 想藉此機會介紹我們公司 JK Overseas,該公司在過去 3 年從事鹽業務。我們目前在國內實力雄厚,在海外擴張。我們是食用鹽的供應商,軟水鹽、除冰鹽、工業鹽”和“。” _
& vbNewLine & vbNewLine & _
“我們與印度的大型製造商建立了合作關係,並從他們那裡採購優質鹽和出口產品。因此,我們正在尋找可靠的專業進口商和經銷商代理,以建立互惠互利的長期業務”&“ 。” _
& vbNewLine & vbNewLine & _
“請聯繫我們提出您的要求或您可能有的任何其他查詢。我們提供可靠的物流和準時交貨。我們相信我們最具競爭力的價格將符合您的期望”和“。” _
& vbNewLine & vbNewLine & _
.HTML 正文

'。發送
結束
下一個單元格
END SUB
網站主持人對此評論進行了最小化
我正在嘗試將此代碼集成到我目前擁有的當前格式中,從而我能夠根據一組值在 excel 中自動化電子郵件。 任何有關在我目前擁有的內容中添加“簽名”代碼的幫助將不勝感激。

公共子 CheckAndSendMail()

'更新者 Extendoffice 2018/11/22

將 xRgDate 調暗為範圍

暗淡 xRg 作為範圍發送

將 xRgText 調暗為範圍

將 xRgDone 調暗為範圍

將 xOutApp 調暗為對象

將 xMailItem 調暗為對象

將 xLastRow 變暗

將 vbCrLf 調暗為字符串

將 xMailBody 調暗為字符串

將 xRgDateVal 調暗為字符串

將 xRgSendVal 調暗為字符串

將 xMailSubject 調暗為字符串

暗淡我只要

在錯誤恢復下一頁

'請指定截止日期範圍

xStrRang = "D2:D110"

設置 xRgDate = Range(xStrRang)

'請指定收件人郵箱地址範圍

xStrRang = "C2:C110"

設置 xRgSend = Range(xStrRang)

xStrRang = "A2:A110"

設置 xRgName = Range(xStrRang)

'指定郵件中提醒內容的範圍

xStrRang = "Z2:Z110"

設置 xRgText = Range(xStrRang)

xLastRow = xRgDate.Rows.Count

設置 xRgDate = xRgDate(1)

設置 xRgSend = xRgSend(1)

設置 xRgName = xRgName(1)

設置 xRgText = xRgText(1)

設置 xOutApp = CreateObject("Outlook.Application")

對於 I = 1 到 xLastRow

xRgDateVal = ""

xRgDateVal = xRgDate.Offset(I - 1).Value

如果 xRgDateVal <> "" 那麼

如果 CDate(xRgDateVal) - 日期 <= 30 並且 CDate(xRgDateVal) - 日期 > 0 那麼

xRgSendVal = xRgSend.Offset(I - 1).Value

xMailSubject = " JBC 服務協議將於 " & xRgDateVal 到期

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & “親愛的” & xRgName.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & ""

設置 xMailItem = xOutApp.CreateItem(0)

使用 xMailItem

.Subject = xMailSubject

.To = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

。顯示

'。發送

結束

設置 xMailItem = 無

如果結束

如果結束

下一頁

設置 xOutApp = 無

END SUB
網站主持人對此評論進行了最小化
這是非常有用的代碼
我需要在 xOutMsg 行中從右到左更改文本格式
請幫忙 。
網站主持人對此評論進行了最小化
我正在嘗試將單個工作表從 excel 發送到不同的電子郵件,但它只會附加工作簿本身。 另外,需要能夠添加我的簽名行。有什麼幫助嗎?Sub AST_Email_From_Excel()

暗淡電子郵件應用程序作為對象
將 emailItem 調暗為對象

設置 emailApplication = CreateObject("Outlook.Application")
設置 emailItem = emailApplication.CreateItem(0)

' 現在我們建立電子郵件。

emailItem.to = Range("e2").Value

emailItem.CC = Range("g2").Value

emailItem.Subject = "未歸還的科技設備"

emailItem.Body = "查看附件中的電子表格,了解您所在地區未退回的物品"

'附加當前工作簿
emailItem.Attachments.Add ActiveWorkbook.FullName

'從您的計算機附加任何文件。
'emailItem.Attachments.Add ("C:\...)"

'發送郵件
'emailItem.send

'顯示電子郵件,以便用戶可以在發送前根據需要更改它
emailItem.顯示

設置 emailItem = 無
設置 emailApplication = 無

END SUB
網站主持人對此評論進行了最小化
嗨,克里斯,您提供的代碼已被修改。 現在可以將 Outlook 簽名插入到郵件正文中。 請試一試。 謝謝你。 子 AST_Email_From_Excel()
'更新者 Extendoffice 20220211
暗淡電子郵件應用程序作為對象
將 emailItem 調暗為對象
設置 emailApplication = CreateObject("Outlook.Application")
設置 emailItem = emailApplication.CreateItem(0)

' 現在我們建立電子郵件。
emailItem.Display '顯示電子郵件,以便用戶可以在發送前根據需要更改它
emailItem.to = Range("e2").Value
emailItem.CC = Range("g2").Value
emailItem.Subject = "未歸還的科技設備"
emailItem.HTMLBody = "查看附件中的電子表格,了解您所在地區未退回的商品" & " " & emailItem.HTMLBody

'附加當前工作簿
emailItem.Attachments.Add ActiveWorkbook.FullName

設置 emailItem = 無
設置 emailApplication = 無

END SUB
網站主持人對此評論進行了最小化
嗨,水晶,感謝您添加簽名,但似乎不喜歡 HTMLBody 部分。當我運行宏時,它在 emailItem.HTMLBody 上進行調試 =“請參閱附件中的電子表格以了解您所在地區未退回的項目”& " " & emailItem.HTMLBodyand 並沒有完成其餘部分。  
網站主持人對此評論進行了最小化
嗨,
您使用的是哪個 Excel 版本? 以下 VBA 代碼也可以提供幫助。 請試一試。 感謝您的反饋意見。 子發送工作表()
'更新 Extendoffice 20220218
將 xFile 調暗為字符串
將 xFormat 變暗
將 Wb 調暗為工作簿
將 Wb2 調暗為工作簿
將文件路徑變暗為字符串
昏暗的FileName作為字符串
將 OutlookApp 調暗為對象
將 OutlookMail 調暗為對象
在錯誤恢復下一頁
Application.ScreenUpdating = False
設置 Wb = Application.ActiveWorkbook
ActiveSheet.複製
設置 Wb2 = Application.ActiveWorkbook
選擇案例 Wb.FileFormat
案例 xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
案例 xlOpenXMLWorkbookMacroEnabled:
如果 Wb2.HasVBProject 然後
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
其他
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
如果結束
案例Excel8:
xFile = ".xls"
x格式 = Excel8
案例 xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
最終選擇
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(現在,“dd-mmm-yy h-mm-ss”)
設置 OutlookApp = CreateObject("Outlook.Application")
設置 OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = Range("e2") & " ; " & Range("g2")
使用 OutlookMail
。顯示
.To = Range("e2")
.CC = 範圍(“g2”)
.BCC =“”
.Subject = "未歸還的科技設備"
.HTMLBody = "查看附件中您所在地區未退貨商品的電子表格" & " " & .HTML正文
.Attachments.Add Wb2.FullName
'。發送
結束
Wb2.關閉
殺死 FilePath & FileName & xFile
設置 OutlookMail = 無
設置 OutlookApp = 無
Application.ScreenUpdating = True
END SUB
網站主持人對此評論進行了最小化
看起來是 Excel 2016 和 VBA 7.1
網站主持人對此評論進行了最小化
Oi Cristal,一個 minha 宏 perde 一個 configuração da assinatura 做電子郵件,com imagens e formatação original。 Como consigo 解析器?

子 Geraremail()

將 OLapp 調暗為 Outlook.Application
將 janela 調暗為 Outlook.MailItem

設置 OLapp = 新 Outlook.Application
設置 janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


與珍妮拉
ActiveWorkbook.Save
。顯示
.To = Sheets("Base").Range("A2").Value
.CC = Sheets("Base").Range("A5").Value
.Subject = "Mapa - Acrilo" & Format(Date, "dd.mm.yy")
assinatura = .身體
.Body = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonnitrila Considerando as vendas previstas no S&OP." & Chr(10) & Chr(10) & assinatura
.Attachments.Add Anexo01
結束

END SUB
網站主持人對此評論進行了最小化
Com a mudança abaixo, consegui ajustar。 Porém a letra do corpo da mensagem fica em Times New Roman。 Gostaria de usar Calibri, como posso alterar o código?

子 Geraremail()

將 OLapp 調暗為 Outlook.Application
將 janela 調暗為 Outlook.MailItem

設置 OLapp = 新 Outlook.Application
設置 janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


與珍妮拉
ActiveWorkbook.Save
。顯示
.To = Sheets("Base").Range("A2").Value
.CC = Sheets("Base").Range("A5").Value
.Subject = "Mapa - Acrilo" & Format(Date, "dd.mm.yy")
assinatura = .身體
.HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonnitrila Considerando as vendas previstas no S&OP." &" " & .HTML正文
.Attachments.Add Anexo01
結束

END SUB
網站主持人對此評論進行了最小化
嗨,米拉,
以下 VBA 代碼可以幫助您將電子郵件正文的字體更改為 Calibri,請嘗試一下。 謝謝你。
在運行代碼之前,需要點擊 工具 > 參考文獻Microsoft Visual Basic for Applications 窗口,然後檢查 Microsoft Word對像庫 中的複選框 參考 - VBAProject 對話框如下圖所示。
[img]我:\工作\周雪明\2022年工作\6月份\文章評論截圖\3.png[/img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
嗨,米拉,
以下 VBA 代碼可以幫助您將電子郵件正文的字體更改為 Calibri,請嘗試一下。 謝謝你。
在運行代碼之前,需要點擊 工具 > 參考文獻Microsoft Visual Basic for Applications 窗口,然後檢查 Microsoft Word對像庫 中的複選框 參考 - VBAProject 對話框作為附件,如下所示。
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
您好,我正在嘗試修復我的 VBA 代碼。 我想包含一個帶有徽標的 outlook 簽名。 這可能嗎,我應該把我當前使用的代碼放在哪裡? 任何幫助都會很棒。

子 EmailAspdf()

將 EApp 調暗為對象
設置 EApp = CreateObject("Outlook.Application")

將 EItem 變暗為對象
設置 EItem = EApp.CreateItem(0)

昏暗的invno只要
將客戶名調暗為字符串
暗淡為貨幣
將 dt_issue 調暗為日期
暗淡的術語作為字節
調暗 nextrec 作為範圍
暗淡的路徑作為字符串
將 fname 調暗為字符串

invno = Range("I4")
客戶名 = Range("A11")
amt = Range("I42")
dt_issue = 範圍("I6")
術語=範圍(“I7”)
路徑 = “我的路徑”
fname = invno & " - " & custname

ActiveSheet.ExportAsFixedFormat 類型:=xlTypePDF,IgnorePrintAreas:=False,文件名:=path & fname

設置 nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0)

nextrec = invno
nextrec.Offset(0, 1) = 客戶名稱
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + 術語
nextrec.Offset(0, 8) = 現在

Sheet3.Hyperlinks.Add anchor:=nextrec.Offset(0, 6), 地址:=path & fname & ".pdf"

與項目

.To = Range("A17")

.Subject = Range("A11") & " " & "發票編號:" & Range("I4") & " " & "for California Advocates"

.body = "Hello " & Range("A11") & "," & vbNewLine & vbNewLine _
& "請參閱隨附的發票" & Range("A11") & "。" & vbNewLine & vbNewLine _
&“如果您有任何疑問,請隨時與我聯繫。” & vbNewLine & vbNewLine _
& "最佳" & vbNewLine _
& "我的名字在這裡" & vbNewLine

.Attachments.Add (路徑 & fname & ".pdf")

。顯示

結束
退出小組



END SUB
網站主持人對此評論進行了最小化
嗨,羅斯安妮,

在應用 VBA 代碼之前,您可以提前手動將徽標添加到您的簽名中。 代碼需要放在Module代碼窗口(按Alt+F11打開Visual Basic Editor,點擊Insert > Module)
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護