12万作品が月額500円(税別)で見放題なのはdTVだけ!! >>dTV(外部リンク)

お世話になっております。
Notesの「ボタン」機能により、下記のような機能が実現できないかと考えています。技術をお持ちの方、方法をご教示頂けましたら幸いです。

■実現したい内容
ボタンを押すと、「本文」「件名」「宛先」が下書きされ宛先もプリセットされた状態の、作成中メールが表示されるようにしたい。

■目的
社内の不特定多数の利用者が見るDBにボタンを配置し、ボタン機能によるメール連絡を受け取りたい。ボタンを押すと、利用者はゼロからメールを作成するのではなく、予め記入フォームがプリセットされた状態からメール作成が開始できるようにしたい。

■補足
・よくある「出欠確認」のようなボタンを押すとメールが飛ぶ、といったボタンを作成することはできます。逆にその程度の知識です。
・様々なシーンで利用するため、本文、件名、宛先は編集可能であることが必要です。
・Notes8.0を利用しています。

どうぞよろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

私も同じことができないかなーと思っていました。

notes技術者であれば、もっと良いやり方がおもいつくのでしょうが、ユーザレベルの私は苦肉の策で下記で宛先&件名のデフォルトセットをしました。
・ボタンにホットスポットを設定する
・ホットスポット 種類⇒リンクにする
         値⇒mailto:メールアドレス?subject=件名 を入力する。
値にhtmlタグを入れるとできるようなので、件名も&bodyで入れれないかなーと思ってますが、私の知識ではこれが限界でした。試してみてください。
    • good
    • 0

「ステーショナリー」として登録しておいて、そのステーショナリーを使用してメールを作成すればよいのでは?

    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qノーツのアクションボタン

ノーツDBでフォームにアクションボタンを作りたいです。

ボタンに入力する式を知りたいです。

フォーム文書を貼り付け(とリンク)、新規ノーツメールを開き、固定したノーツグループアドレスの宛先を入力する。

Aベストアンサー

それぞれのコマンドについては、ノーツのヘルプで確認して下さいネ。
---------------------------------------------
文書リンクがついたメールを作成する例
---------------------------------------------
Subject:="(メールのタイトル)";
SendTo:="(固定したノーツグループアドレス、リストも可)";
Remark:="(メールの本文に記入する文字列)";

@Command([FileSave]);
rem {文書リンクを作るには文書が保存されていなければならないので念のために…};

@Command([EditMakeDocLink]);
@Command([Compose];@MailDbName;"Memo");
@Command([EditInsertText]; @Implode(SendTo;","));
@PostedCommand([EditGotoField]; "Subject");
@PostedCommand([EditInsertText]; Subject);
@PostedCommand([EditGotoField]; "Body");
@PostedCommand([EditInsertText]; Remark);
@PostedCommand([EditPaste]);
""
---------------------------------------------
上の式の…
@Command([Compose];@MailDbName;"Memo");
を次の式に変えれば、文書が転記されたメールが作成されます。フォーム文書を貼り付け…って、このことなのでしょうネ。
@Command([MailForward]);

それぞれのコマンドについては、ノーツのヘルプで確認して下さいネ。
---------------------------------------------
文書リンクがついたメールを作成する例
---------------------------------------------
Subject:="(メールのタイトル)";
SendTo:="(固定したノーツグループアドレス、リストも可)";
Remark:="(メールの本文に記入する文字列)";

@Command([FileSave]);
rem {文書リンクを作るには文書が保存されていなければならないので念のために…};

@Command([EditMakeDocLink]);
@Command([Co...続きを読む

Qロータスノーツのメール機能

会社のパソコンのメールがロータスノーツです。
Outlookのようにマニュアル本をみかけることもなく、ちょっと教えてほしいのでお願いします。(もしマニュアル本をご存知の方がいらっしゃれば教えてください)
忘年会の出欠確認をメールでしたいのですが、ボタンをクリックするだけで出欠確認がとれるようなメールを作る方法を教えてください。他部署から送られてくるメールにときどきみかけるのですが、身近な部署の人はどうやって使うのか誰も知りません。
出席/欠席のボタンを押すと自動的に幹事にメールが届いて出欠確認ができるらしいのですが、ご存知の方お願いします。(ついでにそのまま統計とれたりする機能もあるんでしょうか?)

Aベストアンサー

こんにちは。
もしからしたらホットスポットのことかな?
統計は分かりませんが、ボタンの作り方は下記の方法でできます。
この方法で作ったメールを受け取った人は、ボタンを押すだけで出欠の返事ができ、送付者に返信が返ってきます。
ボタンの大きさやデザインは適当にやってみてください。
まずは、自分宛に送付して確かめてください。

新規メール作成ー>ツールバーから、作成ー>ホットスポットー>”ボタン”を選ぶー>ボタンのプロパティ画面でボタンの名前を入力(参加・・など)ー>ボタンの編集画面の左側(クライアントになってる:変更なし)右側(”シンプルアクション”を選ぶ)ー>アクションの追加をクリックー>アクションの追加編集画面ー>アクション欄ー>”送信者に返信”を選ぶー>返信メッセージを入力(参加します・・など)ー>追加をクリック 以上。

QLotusScript メール作成方法が解りません

lotus script言語で、メールを作成し送信する方法は解るのですが、
送信せず、作成したメールの内容で、メーラーの新規メール作成画面を立ち上げる方法がわかりません。

スクリプト(抜粋)
Set maildoc = db.CreateDocument 'maildoc
Call maildoc.ReplaceItemValue("Form","Memo")
Call maildoc.ReplaceItemValue("SendTo",uidoc.FieldGetText("mail"))
maildoc.CopyTo = uidoc.FieldGetText("itsupport")
Call maildoc.ReplaceItemValue("Subject","テスト")
Set mailritem = New NotesRichTextItem(maildoc,"Body") 'mailritemをBodyとして定義
Call mailritem.AppendText("【テスト】")
Call mailritem.AddNewline(2)
Call mailritem.AppendText("テスト")
Call mailritem.AppendDocLink(uidoc.Document,"")

Call maildoc.Send(False) 'メールを送信する

こんな感じで、普通にメール作成して最後に送信してます。
ここで、最後に送信はせず、このメール内容で新規メール作成画面を立ち上げたいです。

これはボタン内で作成しており、他にも機能をつけてるので、@関数で全体を書き直すことができません。 この新規メール作成の部分だけ@関数使う形なら問題ないのですが、

方法を教えていただけますでしょうか。

lotus script言語で、メールを作成し送信する方法は解るのですが、
送信せず、作成したメールの内容で、メーラーの新規メール作成画面を立ち上げる方法がわかりません。

スクリプト(抜粋)
Set maildoc = db.CreateDocument 'maildoc
Call maildoc.ReplaceItemValue("Form","Memo")
Call maildoc.ReplaceItemValue("SendTo",uidoc.FieldGetText("mail"))
maildoc.CopyTo = uidoc.FieldGetText("itsupport")
Call maildoc.ReplaceItemValue("Subject","テスト")
Set mailritem = New NotesRichTextItem(m...続きを読む

Aベストアンサー

仕様がいまいちわからないのでなんとも言えませんが
多分こんなことがしたいんだろうなぁというソースを書いておきます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim maildb As New NotesDatabase("","")
Call maildb.OpenMail
Set uidoc=ws.CurrentDocument

Set doc = maildb.CreateDocument
Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue("Subject","テスト")

Set rtitem = New NotesRichTextItem(doc,"Body")
Call rtitem.AppendText("【テスト】")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("テスト")
Call rtitem.AppendDocLink(uidoc.document,"")
Call doc.Save( False, False)
Call ws.EditDocument(True,doc)

ローカルでメールファイルの設定とかきちんとしてあれば
ご自身のメールボックスが開きます
(一部未提示の仕様SendToの指定とか・・・は実装していません)

仕様がいまいちわからないのでなんとも言えませんが
多分こんなことがしたいんだろうなぁというソースを書いておきます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim maildb As New NotesDatabase("","")
Call maildb.OpenMail
Set uidoc=ws.CurrentDocument

Set doc = maildb.CreateDocument
Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue...続きを読む

QNotesでアンケートをとりたい

いつもお世話になっています。

私の所属する会社では、グループウェアとしてLotus Notesを使用しており(クライアントVerは7です)、その上でアンケートを取りたいのです。

方法としては、社内の全員が見られる掲示板に記事(表現が悪かったらすみません)としてアンケートを掲載し、例えば

<質問1>
貴方は男性ですか?女性ですか?
□男性 □女性    (□はラジオボタン)

<質問2>
趣味は?
□読書 □映画鑑賞 □スポーツ □なし (複数選択可能)

<質問3>
ご意見があれば記入してください。
[ここにテキストボックス]


終了したらここを押してください。

            コマンドボタン(回答結果を実施者に送信)


という風に表示され、回答者は質問に答えた後、一番下のボタンをクリックして終了し、回答内容はアンケートの実施者に送信される、という仕組みとしたいのです。

色々なサイトを検索、サーフィンして見ましたが、これといった具体的な方法が述べられておらず、恥ずかしながらここの皆様におすがりすることにした次第です。

お詳しい方、何卒ご教授いただけますよう、よろしくお願いいたします。

いつもお世話になっています。

私の所属する会社では、グループウェアとしてLotus Notesを使用しており(クライアントVerは7です)、その上でアンケートを取りたいのです。

方法としては、社内の全員が見られる掲示板に記事(表現が悪かったらすみません)としてアンケートを掲載し、例えば

<質問1>
貴方は男性ですか?女性ですか?
□男性 □女性    (□はラジオボタン)

<質問2>
趣味は?
□読書 □映画鑑賞 □スポーツ □なし (複数選択可能)

<質問3>
ご意見があれば記入してください。
[こ...続きを読む

Aベストアンサー

ノーツの開発環境のノーツデザイナーが要ると思います。
そして新たなアンケート用のデータベースを作成します。
データベースには、メニューになる「ナビゲーター」、保存データにアクセスするための「ビュー」、それとアンケート用紙の役目をする「フォーム」を作成します。
回答結果を実施者に送るためのコマンドボタンは、フォーム上の「アクションボタン」で作成します。
また、アンケート質問内容はフォーム上にテキストとしてそのまま記述できます。
アンケートの回答については、ご質問にもあるように、ラジオボタンをフォーム上に配置できます。
ちなみにノーツでは一般的にラジオボタンの形状は○型です。□になるといわゆるチェックボックスとなり回答で複数回答が可能となります。
また、回答結果の保存については、(□男性、□女性)の場合で、回答として男性が選択された場合は、保存データは"男性"となります。
このように文字列そのままを保存するのではなく、男性が選択された場合は"1"を、女性が選択された場合は"2"を、それぞれ保存データとするというようなことも、基本的なテクニックとして可能です。
またテキストボックスも配置可能ですが、ノーツ特有のカギカッコつきのテキストボックスとなり、例えば3センチ×8センチのテキストボックスというような、大きなテキストボックスの配置はできません。入力されたテキストの長さに合わせて、カギカッコが長くなっていく感じです。
デザイナーを購入すると、割と詳しいオンラインヘルプがありますので、これを参考にされるとよいと思います。
ちなみにノーツデータベースの開発は割と簡単ですのでぜひ挑戦してみてください。

ノーツの開発環境のノーツデザイナーが要ると思います。
そして新たなアンケート用のデータベースを作成します。
データベースには、メニューになる「ナビゲーター」、保存データにアクセスするための「ビュー」、それとアンケート用紙の役目をする「フォーム」を作成します。
回答結果を実施者に送るためのコマンドボタンは、フォーム上の「アクションボタン」で作成します。
また、アンケート質問内容はフォーム上にテキストとしてそのまま記述できます。
アンケートの回答については、ご質問にもあるように、ラ...続きを読む

QエクセルVBAからNotesでメール送信

一度、知恵袋で質問しましたが、回答に対して聞くことができないので、こちらで質問させて頂きます。

VBAでNotesからメールを送信する際、宛先に複数のアドレスを配列変数で指定すると、
2人目以降にメールが送信されません。

コードの内容はエクセルシートにあるアドレスリストのA列を順に配列にし、
重複しているアドレスを省いて配列変数(adrsarray)を作成し
配列変数に入っている複数の宛先へ、Notesからメールを送信するというものです。

以下、抜粋ですがコードを記します。

Const EMBED_ATTACHMENT As Integer = 1454
Dim nss As Object ' lotus.NOTESSESSION
Dim ndb As Object ' lotus.NOTESDATABASE
Dim ndoc As Object ' lotus.NOTESDOCUMENT
Dim rtitem As Object ' lotus.NOTESRICHTEXTITEM
Dim nemb As Object ' lotus.NOTESEMBEDDEDOBJECT
Dim fname As String
Dim r, lastr, i As Long
Dim tmp
Dim adrsarray, myarray, mydic, myitm, adrs As Variant


'A列のアドレスを配列変数adrsarrayに代入

For r = 2 To lastr
If Cells(r, 1) <> "" Then
If r = 2 Then
adrsarray = Cells(r, 1)
End If

If r > 2 Then
adrsarray = adrsarray & "," & Cells(r, 1)
End If

End If
Next

Set Dic = CreateObject("Scripting.Dictionary")

myarray = Split(adrsarray, ",")
For i = 0 To UBound(myarray)
If Not Dic.Exists(myarray(i)) Then
Dic.Add myarray(i), myarray(i)
End If
Next i

'(1)データの重複した配列を初期化し(2)で再度重複無しの配列を格納
adrsarray = ""

'(2)重複を除いて配列を作成
myitm = Dic.keys
For i = 0 To UBound(myitm)
If adrsarray = "" Then
adrsarray = myitm(i)
Else
adrsarray = adrsarray & "," & myitm(i)
End If
Next

Set Dic = Nothing


Set nss = CreateObject("Notes.NotesSession")
Set ndb = nss.GETDATABASE("", "")
ndb.OpenMail
Set ndoc = ndb.CREATEDOCUMENT()
ndoc.Subject = "データを送ります。"
ndoc.SendTo =Array(adrsarray)

ここで以下のように複数名のアドレスを指定すると
ndoc.SendTo = Array("○○@○○.com","○○@○○.com","○○@○○.com")
一斉送信できることがわかったのですが、
宛先は固定ではない為、Array(adrsarray)のように
取得した複数アドレスを入れたいのですが
私の作成したコードではうまく動作しません。

長々と申し訳ないですが
ndoc.SendTo =array(adrsarray) で送信するにはどうすればよろしいでしょうか。
ご教授よろしく御願い申し上げます。

一度、知恵袋で質問しましたが、回答に対して聞くことができないので、こちらで質問させて頂きます。

VBAでNotesからメールを送信する際、宛先に複数のアドレスを配列変数で指定すると、
2人目以降にメールが送信されません。

コードの内容はエクセルシートにあるアドレスリストのA列を順に配列にし、
重複しているアドレスを省いて配列変数(adrsarray)を作成し
配列変数に入っている複数の宛先へ、Notesからメールを送信するというものです。

以下、抜粋ですがコードを記します。

Const EMBED_ATTACHMENT ...続きを読む

Aベストアンサー

Notes の事はさっぱりわかりませんが、

> ここで以下のように複数名のアドレスを指定すると
> ndoc.SendTo = Array("○○@○○.com","○○@○○.com","○○@○○.com")
> 一斉送信できることがわかったのですが、

という事なので、

> ndoc.SendTo =Array(adrsarray)

ndoc.SendTo = myitm

にすると、どうなりますか。
(myitm 自体は、重複の無いアドレスの配列になっているようですが)



余計なお世話で、気になった箇所を何点か

> Dim r, lastr, i As Long

Long は i だけで、r, lastr は Variant だったと思います。

コード部分は抜粋で、途中提示されていない処理をされているのかもしれませんが
ひと塊の処理と考えた時、以下のような書き方(雰囲気)もあるのかも(【未検証】)
(ndoc.SendTo = myitm で動いたっていう前提があってのものになりますが)

' ・・・・・
' ・・・・・
  Dim Dic As Object
  Dim ndoc As Object
  Dim r As Long, lastr As Long
  Dim adrsarray As Variant
'  Dim adrsstring As String

' ・・・・・
' ・・・・・
  
  Set Dic = CreateObject("Scripting.Dictionary")

  For r = 2 To lastr
    If (Cells(r, 1).Value <> "") Then
      Dic.Item(Cells(r, 1).Value) = Null
    End If
  Next

  If (Dic.Count = 0) Then
    ' アドレスがなかった場合 Exit ? する
    ' ・・・なら、後始末を忘れずに
  End If

  adrsarray = Dic.keys
  Set Dic = Nothing

'  adrsstring = Join(adrsarray, ",") ' カンマ(,)区切りで1つの文字列に
' ・・・・・
' ・・・・・
  ndoc.SendTo = adrsarray
' ・・・・・


Dic.Item(キー) = 値
では、
キーが登録済みなら値を設定
キーが登録されていなかったら、キーを登録してから値を設定
だったと思います。
今回、値は不要と思うので、Null にしてみました

※ Exists & Add との性能比較・・・・は、わかりません

Notes の事はさっぱりわかりませんが、

> ここで以下のように複数名のアドレスを指定すると
> ndoc.SendTo = Array("○○@○○.com","○○@○○.com","○○@○○.com")
> 一斉送信できることがわかったのですが、

という事なので、

> ndoc.SendTo =Array(adrsarray)

ndoc.SendTo = myitm

にすると、どうなりますか。
(myitm 自体は、重複の無いアドレスの配列になっているようですが)



余計なお世話で、気になった箇所を何点か

> Dim r, lastr, i As Long

Long は i だけで、r, lastr は Variant だったと思いま...続きを読む

QNotesのメールのローカルへの保存方法

Notesのメールのローカルへの保存する方法ってありませんか?
「ファイル」→「書き出し」という方法でローカルに保存していたのですが他によい方法はありませんか?

Aベストアンサー

お使いのバージョンは?

レプリカを使うのが楽だと思います。
ワークスペースでメールDBのアイコンを右クリックして「複製」を実施して下さい。

保存用のファイル名を指定すれば、レプリケータ画面がローカルにコピーできます。
サーバーから取得した後にローカルからサーバへ同期を行う(Pull → Push)ので便利です。

Qoutlookでの「参加」「不参加」等の選択ボタン作成方法

outlook2003を使用しています。メールを受信した時に、本文上部のバーをクリックすると、「参加」「不参加」等の選択ボタンが表示されます。また、「コメントを付けて送信する」などとも書かれています。自分でもこのようなメールを作成したいのですが作成方法を教えてください。

Aベストアンサー

メールを書いているの画面で、「表示」メニュー⇒「オプション」を選択して、「返信ボタンを使う」の右側にあるリストボックスに

参加;不参加;コメントを付けて送信する

のようにセミコロンで区切って選択肢を並べて下さい。

Qノーツで、ナビゲータから、フォームを開きたいのです

こんにちは。

ノーツ歴4ヶ月の者です。過去に近い質問が見つからなかったので、質問させていただきます。

ノーツで、部署内の掲示板を作成しています。
とてもシンプルで、部署メンバー全員が投稿できます。

メインナビゲータには、ボタンがあり、
●投稿者別
●日付別
●トピック別
です。
が、もうひとつ、投稿者が入力フォームを開くボタンを作りたいのです。
ボタンとフォームをどうやってつなげたら良いか教えてください。

よろしくお願いいたします。

Aベストアンサー

単に入力フォームを開くのであれば、ボタンに以下のようなコマンド式を設定すれば良いです。

@PostedCommand([Compose];"フォーム名")

もし、フレームセットを使用している場合は、上記の式の前に以下のようにフレームを指定する式を入れます。

@SetTargetFrame("フレーム名");

QLotus Notes 6.5 @prompt[yesno]の使用方法について

WindowsXP上で、Lotus Notes 6.5を使用しており、Notesメール上に@関数式を使用して自動回答ボタンを作成しようと思っています。

ボタンクリック→yesnoダイアログボックス表示→yesの場合には管理者へメール送信、noの場合にはキャンセル
という形にしようと思っており、Helpを見たところ、yesの場合に1が返され、noの場合0が返されるとありますが、この返された数値はどのように拾えば(?)よろしいでしょうか。

たとえば非常に拙い例ですが
1行目 question:= @prompt([yesno];"回答";"よろしいですか?")
2行目 @if(question:=0 ; キャンセルしたときの命令; 実行するときの命令)
とした場合、yesでもnoでもキャンセルが実行されます。
(そもそもExcel関数のifと同じ様に使っている@if文がおかしいのかもしれませんが…。)

どのようにしたらyesだとこれ、noだとこれといった判断をつけさせるかを教えていただければ幸いです。よろしくお願いします。

WindowsXP上で、Lotus Notes 6.5を使用しており、Notesメール上に@関数式を使用して自動回答ボタンを作成しようと思っています。

ボタンクリック→yesnoダイアログボックス表示→yesの場合には管理者へメール送信、noの場合にはキャンセル
という形にしようと思っており、Helpを見たところ、yesの場合に1が返され、noの場合0が返されるとありますが、この返された数値はどのように拾えば(?)よろしいでしょうか。

たとえば非常に拙い例ですが
1行目 question:= @prompt([yesno];"回答";"よろしいです...続きを読む

Aベストアンサー

einsiedlerさんは、ほぼ正解に近いところまでいっております。挙げられてた例をもとに回答するのであれば、以下のロジックで目的が達成できると思われます。

1行目 question:= @prompt([yesno];"回答";"よろしいですか?")
2行目 @if(question=0 ; キャンセルしたときの命令; 実行するときの命令)

「:=」は代入のための演算子なので、比較を行う場合には「=」を用います。2行目をさらにシンプルに記載するのであれば、以下の記載でも良いと思います。

@if(question; 実行するときの命令; キャンセルしたときの命令)

Qロータス ノーツ ホットスポットリンクが出来ない

困っています(T_T)
私の勤める職場では、Lotus Notes R5を使用しています。
経費節減の一環として、紙文書での回覧をノーツメールのホットスポットのリンク
を利用した回覧に変更をしました。
具体的には
1.回覧文書を電子ファイル化(pdf等)し所定のフォルダに保存
2.回覧文書名に対し、ホットスポットリンクを作成
3.職場内にメールで周知
4.各自、ホットスポットリンクをクリックしファイルを開く
というところです。
職場内のほとんどの人は問題なくファイルが開くのですが、一部でリンクをクリッ
クしても開かないという事象を確認しました。
リンクをクリックすると、
個人ウェブナビゲータ 5.0 がありません
というメッセージが表示され、サーバーを選択する窓が開きます。
いずれのサーバーを選択してもリンク先のファイルは開きません。
どなたか分かる方がおられましたら、教えて下さい。
よろしくお願い致します。

Aベストアンサー

クライアント側の環境の問題のように思えます。
R5のクライアントでは、URLを用いてWebアクセスを行うためには個人WebナビゲーターDBがローカルに存在する必要があったと記憶しています。(デフォルトのブラウザの指定がNotesになっている場合だけだったかもしれませんが・・・)

ですので、まずは以下1をお試し頂き、それでもダメなら2をお試しいただくと良いかもしれません。

1. ロケーション文書でデフォルトのブラウザの指定をIE等に変更する

2. ローカルのdataディレクトリ直下に個人WebナビゲーターDBを作成する(perweb.ntfもしくはperweb50.ntfをテンプレートに、perweb.nsfを作成する)


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング