| |
はじめまして。
小生、EXCELVBAのキャリア２年程のPGの卵デス。
早速ですが、2週間程前から会社で、こんな↓ツールを作っています。
・EXCELVBAからOUTLOOKを立ち上げメールを自動配信する。
・メルアドリストは、EXCELリスト形式で５００件くらいをループで繰り返し。
送信部分は参考書や色んなＨＰを参考にコードは、こんな具合にできてんですが
Dim myOL As Object, myMail As Object
Set myOL = CreateObject("Outlook.Application")
Set myMail = myOL.CreateItem(0)
With myMail
.To = "メルアド"
.CC = "メルアド2"
.Subject = "メルマガＸＸ号"
.Attachments.Add "添付ファイルのフルパス"
.Body = "ＸＸＸＸＸＸＸＸＸＸ"
.Display
End With
SendKeys "%s~", True
Set myMail = Nothing
Set myOL = Nothing
で、お伺いしたいのは、outlookメールの差出人＜通常非表示の所＞に自メールアドレスでは無く、会社のメールアドレスを入れたいのです。
その為にはどんなプロパティをコードに追加したらいいか？？です。
イメージ的にはこんな具合なんですか、、、、。
どなたかスキルのある方いたら教えて頂きたいのですが、お願いします。
|
|
MICHI
- 07/1/20(土) 22:24 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
≪
