|
こんにちわ。
下記のコードでliveメールのひな型を作ることはできたのですが
宛先を複数指定したいのです。(10人くらい)
CCではなく宛先にです。
色々見て、カンマなどで区切ってみたのですが、全然できません。
mailtoでは複数のアドレスを指定することはできないのでしょうか?
もし、できなければ他にどのような方法があるかを教えていただきたいです。
よろしくお願いします。
Dim sAddr As String
Dim sBody As String
Dim sSubj As String
Dim sComd As String
Dim Body As String
Dim cc As String
Dim Str(11) As String
Body = Sheets("○").Range("B4").Value & "%0d%0a" & _
Sheets("×").Range("B5").Value & "%0d%0a" & _
Sheets("○").Range("B6").Value & "%0d%0a" & _
0a"
宛先1 = "アドレス1"←ここに複数人、入力したい
cc = "CC1"
sSubj = "○○"
sBody = Body
sComd = "Mailto:" & 宛先1 & "?cc=" & cc & "&Subject=" & sSubj & "&Body=" & sBody
Debug.Print sComd
CreateObject("WScript.Shell").Run sComd
|
|