[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセルからメール送信』（あつし）
いつもお世話になってます。 エクセルからメールを送る方法について教えてほしいのです。 ハイパーリンクからメールにしてアドレスを入れると ノーツが立ち上がり，アドレス，件名までは入力されますが， 本文の入力方法，自動で送信する方法はありますか？ （改善要望などを書いてもらい記入後，ボタンを押すと，私のアドレスにメールで 知らせるようにしたいのですが・・・）
過去ログ呼んだんですが，よくわかりませんでした。 （ノーツだからだめなんでしょうか？？）
Lotus123-97とアプローチ97にほんの少々触れたくらいの経験しかなく、 Notesは知らないので検索してみましたが、webでも情報は少ないですね。
[Excelメール送信での障害] http://www-06.ibm.com/jp/domino04/lotus/support/faqs/faqs.nsf/all/717180 ↑このページ[API - MAPI]の「障害番号 SPAY3WENJ8」。 excel で、このページの検索をかけるとすぐわかります。
[MSのExcelとロータスノーツの情報]http://office.microsoft.com/ja-jp/excel/CH010003711041.aspx現在参照不可
>自動で送信する方法はありますか？
ノーツスクリプトを書く事になると思います。 http://www.ginga.co.jp/kenshu/notes/ の中の http://www.ginga.co.jp/kenshu/notes/Application3.htm
[そのほかの Notes Q&A] http://domino.webserve.ne.jp/webserve/notesqa.nsf/ [その中のメール送信について] http://domino.webserve.ne.jp/webserve/notesqa.nsf/All/124A1D973C17687249256F390009F3FE?OpenDocument http://domino.webserve.ne.jp/webserve/notesqa.nsf/All/DC858FB2F4611C5749257324000FCE9E?OpenDocument
ご存じでしょうが、Lotusサポート http://www-06.ibm.com/jp/software/lotus/techsupport/
直接の解決策にはなっていませんが、参考になるでしょうか。 （jun53）
返事が遅くなりました。 とりあえずめちゃくちゃ難しそうですね・・・ 一度がんばってみます。（あつし）
以前別の掲示板で回答したコードですが、VBA からノーツのドラフトを作成する例です。
APPENDTEXT や Subject 等でセルの値を使用するようにすれば、EXCEL に記載された 内容を送ることができるようになります。
Notes を起動した状態で実行し、実行後 F9 でご確認ください。 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 Const EMBED_ATTACHMENT As Integer = 1454 Const MAIL_SEND = 1 Const MAIL_SAVE = 2
'-------------------------------------------------------------------
' Notesを起動した状態で実行
'-------------------------------------------------------------------
Public Sub SaveNotesMail()
Dim mailMode As Integer
'-----------------------------------
' *** 動作モード ***
' 保存：MAIL_SAVE
' 送信：MAIL_SEND
'-----------------------------------
mailMode = MAIL_SAVE
Dim wkNSes As Object ' lotus.NOTESSESSION
Dim wkNDB As Object ' lotus.NOTESDATABASE
Dim wkNDoc As Object ' lotus.NOTESDOCUMENT
Dim wkNRtItem As Object ' lotus.NOTESRICHTEXTITEM
Dim wkNAtt As Object ' lotus.NOTESEMBEDDEDOBJECT
Set wkNSes = CreateObject("Notes.NotesSession")
Set wkNDB = wkNSes.GetDatabase("", "")
wkNDB.OpenMail
Set wkNDoc = wkNDB.CreateDocument()
'-----------------------------------
' *** 件名 ***
'-----------------------------------
wkNDoc.Subject = "テスト(タイトル)"
'-----------------------------------
' *** 宛先 ***
'-----------------------------------
wkNDoc.SendTo = Array("atsushi@exel.scool.ne.jp")
'-----------------------------------
' *** CC ***
'-----------------------------------
wkNDoc.CopyTo = Array("Mook@exel.scool.ne.jp")
'-----------------------------------
' *** BCC ***
'-----------------------------------
'wkNDoc.blindCopyTo = Array("xxx@xxx")
'-----------------------------------
' *** 本文 ***
'-----------------------------------
Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY")
' 本文をセットする
With wkNRtItem
.APPENDTEXT "本文（１行目）"
.ADDNEWLINE 1
.APPENDTEXT "本文（２行目）"
.ADDNEWLINE 1
End With
'-----------------------------------
' *** 保存 / 送信 ***
'-----------------------------------
Select Case mailMode
Case MAIL_SEND
wkNDoc.Send False
MsgBox "メールを送信しました", vbOKOnly + vbInformation
Case MAIL_SAVE
wkNDoc.Save True, False
MsgBox "メールをドラフトに保存しました", vbOKOnly + vbInformation
End Select
End Sub
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ご参考までに。
(Mook)
ありがとうございました。 完璧です。（あつし）
添付ファイルを追加する方法はありますか？ そのエクセルファイルを添付するか， リンク（ネットワーク中のファイルのショートカット）を送信したいのですが。 リンクを送信するほうがいいのですが。 （あつし）
ずっと昔にこのような質問をさせていただいたのですが、 メールの送信はうまいことできるのですが、 エクセルのセル範囲を画像として本文中に添付はできますか？ （あつし）
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.