- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 11
- 閱讀權限
- 10
- 註冊時間
- 2015-10-12
- 最後登錄
- 2015-10-12
|
[發問] 怎樣用VBA將Excel的名字連格式帶進Outlook?
大家好,我想利用Excel直接打開Outlook,但不知道怎麼寫VBA,之前在網上看到有人這麼寫:
Sub ex()
Set xlOut = CreateObject("Outlook.Application")
'將寄出範圍命名為Rng，取得Rng所有文字
For i = 1 To [Rng].Rows.Count
For j = 1 To [Rng].Columns.Count
s = IIf(s = "", [Rng].Cells(i, j), s & Chr(9) & [Rng].Cells(i, j))
Next
mystr = IIf(mystr = "", s, mystr & Chr(10) & s)
s = ""
Next
With xlOut
Set Mymail = .CreateItem(olMailItem)
With Mymail
.Subject = "Mail send test" '信件主旨
.Recipients.Add "收件者@hotmail.com" '收件者mailaddress
.Body = mystr '以Rng內容為內文
.Send '寄出信件
End With
End With
End Sub
的確是可以把Excel的指定範圍帶進Outlook,但格式全部沒有了,
應該怎麼改才可以把字型大小顏色等保存呢?
另外,怎麼設定發件人?因為我有兩個帳號,我想使用另一個帳號發件,
請教大家幫忙,拜託各位了,謝謝! |
|
發表於 2015-10-12 22:21
| 
