目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
62 / 118 ツリー ←次へ | 前へ→

【184】メール自動配信ツールを開発中です MICHI 07/1/20(土) 22:24 Excel[未読]
【185】Re:メール自動配信ツールを開発中です Jaka 07/1/22(月) 15:18 Excel[未読]
【186】Re:メール自動配信ツールを開発中です かみちゃん 07/1/23(火) 0:12 Excel[未読]

【184】メール自動配信ツールを開発中です
Excel  MICHI  - 07/1/20(土) 22:24 -

引用なし
パスワード
   はじめまして。
小生、EXCELVBAのキャリア2年程のPGの卵デス。
早速ですが、2週間程前から会社で、こんな↓ツールを作っています。
・EXCELVBAからOUTLOOKを立ち上げメールを自動配信する。
・メルアドリストは、EXCELリスト形式で500件くらいをループで繰り返し。
送信部分は参考書や色んなHPを参考にコードは、こんな具合にできてんですが
Dim myOL As Object, myMail As Object
Set myOL = CreateObject("Outlook.Application")
Set myMail = myOL.CreateItem(0)
With myMail
  .To = "メルアド"
  .CC = "メルアド2"
  .Subject = "メルマガXX号"
  .Attachments.Add "添付ファイルのフルパス"
  .Body = "XXXXXXXXXX"
  .Display
End With
SendKeys "%s~", True

Set myMail = Nothing
Set myOL = Nothing

で、お伺いしたいのは、outlookメールの差出人<通常非表示の所>に自メールアドレスでは無く、会社のメールアドレスを入れたいのです。
その為にはどんなプロパティをコードに追加したらいいか??です。
イメージ的にはこんな具合なんですか、、、、。
どなたかスキルのある方いたら教えて頂きたいのですが、お願いします。

【185】Re:メール自動配信ツールを開発中です
Excel  Jaka  - 07/1/22(月) 15:18 -

引用なし
パスワード
   え〜と、質問するならエクセル質問箱の方にお願いします。
ht tp://www.vbalab.net/vbaqa/c-board.cgi?id=excel

【186】Re:メール自動配信ツールを開発中です
Excel  かみちゃん  - 07/1/23(火) 0:12 -

引用なし
パスワード
   こんにちは。かみちゃん です。

ここには初めて書き込みさせていただきます。

>どなたかスキルのある方いたら教えて頂きたいのですが、お願いします。

以下で解決されたようです。
http://www2.moug.net/bbs/exvba/20070121000008.htm

会社のメールアドレスのプロファイルを作ってそれを実行する方向で対応するようです。
今回の場合は、こういう意図ではないのでしょうけど、公の掲示板に書いてしまうと
「迷惑メール」送信のコツを教えるようなことになりかねないかと、心配してしまいます。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
62 / 118 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free