麻辣家族討論版版 » Excel程式區 » Excel VBA Outlook body 問題

返回列表下一主題上一主題發帖

Excel VBA Outlook body 問題

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-3-13 21:53 | 只看該作者

Excel VBA Outlook body 問題

小弟初學VBA, 有點難題希望各位大大幫忙解決!! 萬分感謝.

如果我係EXCEL 入面, 有一個範圍想paste 落個mail boay 到, 可以點做呢?
而家我只可以COPY 左個範圍, 之後係個mail 到paste返落去, 但係我想一出個mail個body 就有埋D字,
上網睇過, 有人講可以group 一格先出, 但係我個範圍太大, 做唔到, 可以點算呢???

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-3-14 09:45 | 只看該作者

回復 1# yowhome

你只要寄出文本內容?

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

複製代碼

學海無涯_不恥下問

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

3^#

發表於 2013-3-14 12:37 | 只看該作者

Hsieh , 我成功了, 謝謝.
如果我想要的是當paste to mail body 的時侯,
保留EXCEL FORMAT,又應如何呢??

小學生 Rank: 1

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

4^#

發表於 2013-3-14 13:05 | 只看該作者

回復 2# Hsieh

Hsieh , 我成功了, 謝謝.
如果我想要的是當paste to mail body 的時侯,
保留EXCEL FORMAT,又應如何呢??

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題