0 Object Library」 となることがあるようなので、そのチェックを外してください。これで、今のところ例外なく、エラーが消えています。
SentOnBehalfOfName = ("F2"). Subject = ("B1") '件名. Importance = olImportanceHigh '重要度High=2, Low=0, Normal=1 '添付ファイルをセット Dim k As Long For k = 3 To 7 strFoldName = Cells(4, k) n = ("送信設定")(i, k) If n = "" Then GoTo nextloop If Dir(strFoldName, vbDirectory) = "" Then ret = MsgBox("ファイル設定に誤りがあります。確認後に再実行してください。", _ vbYes, "ファイル一括送信"): Exit Sub End If strFilename = strFoldName & n 'フルパスのファイル名 If Dir(strFilename) = "" Then If ("送信設定"). = True Then ret = MsgBox(n & " は存在しません。このファイルを飛ばして続行しますか。", _ vbYesNo, "ファイル一括送信") If ret = vbYes Then GoTo nextloop Else: Exit Sub Else: GoTo nextloop End If. strFilename Next k. BodyFormat = olFormatHTML 'olFormatPlainからHTML形式 ' '画面表示せずに送信する場合は、 ' '送信せずに画面を表示する場合は、. メール一括送信マクロ | Excelアンケートの効率化. Display '表示後に本文データをコピペする Dim objDoc As Object 'OutlookへWordEditorでデータを送る(貼る) Set objDoc = tiveInspector. WordEditor ("B2:B5") With objDoc. Windows(1). lection. HomeKey Unit:=6 'wdStory 6=文頭に移動 tCopyMode = False Set objDoc = Nothing Set oItem = Nothing Set oApp = Nothing Set mysh = Nothing Set mybook = Nothing ret = MsgBox("メールを確認してから送信してください!"
Excel・VBA活用術 2018. 08. 01 2018. 07. 案内メールの作成を効率よく行うためのExcelマクロ（Windows、Mac 両対応） – ELECTRIC DOC.. 24 みなさまこんにちは、ノグチです。 前回は、エクセルVBAからOutlookを操作して、エクセルシートに記入された内容を、メールの件名と本文にセットして、Outlookからメールを送信させる方法をご紹介しました。 【エクセルVBA】Outlookでメールを作成・送信する方法 エクセルシートに記入された件名や本文を、エクセルVBAによってOutlookのメールの件名と本文にセットしてメール送信する方法をご紹介しています。VBAでメールの送信ができれば、宛先に応じてメールの本文を変えつつ一斉に送信することもできますよ。 仕事の取引先にメールをする際、メールの冒頭には相手の会社名、部署名、担当者名を入れたりしますよね。 ビジネスメールのマナーとはいえ、1件、2件ならまだしも、10件、20件となってくると中々苦痛な作業です。 コピー&ペーストしたとしても、会社名や名前を間違ってコピペしてしまっていたらもう最悪です。 ミスの防止と手間削減のために、それ、エクセルVBAで自動化してしまいましょう! 今回は、前回ご紹介したエクセルVBAでメールを送信するコードにFor~Nextを加えて、 エクセルシートに一覧化された複数のメールアドレスに、メール本文を変えつつメールを一括送信する方法 をご紹介します!
こんにちは!メディックメディア編集部です。12月も半ばにさしかかってきましたね。 1. 2年目の皆さまは、冬休み明けから始まる実習に向けて準備し始めている頃ではないでしょうか?
と、クレームの裏側にある患者さんの情報もしっかりと把握することが大切なのです。必ず何かが隠されている、それが患者さんからのクレームの真実なのです。 3. 患者さんからのクレームに、看護師はどのように対応すべきか 患者さんからの様々なクレームに対して、看護師はどの様に対応すれば良いのでしょうか。 1. 患者さんに対しての声掛け クレームの対応について最も大切なのは、最初の患者さんに対しての声掛けです。クレームを言われる患者さんは感情的になっているケースも多く、怖いと感じてしまうこともあるかも知れませんが、「どうかなさいましたか?」「何か失礼がありましたか?」などの声掛けにより、話を聞く姿勢を示すことが大切です。 ここでの声掛けに失敗してしまうと、患者さんはより感情的になってしまいます。逆にきちんと話を聞くという姿勢が患者さんに伝われば、患者さんも落ち着いて話をされるということにもつながります。患者さんが何か伝えようとしているのに、「私ではわかりません」「また後で聞きます」などの声掛けをしてしまうと、まさに火に油を注ぐことにもなりかねないのです。患者さんの怒りやたぎる想いに対しての初期消火に効果的なのが、話を聞きますという姿勢を伝える「声掛け」なのです。 2. 訴えをしっかり聞く クレームの内容にもよりますが、まずは患者さんからの訴えをしっかりと聞くことが大切です。看護師個人が聞き、対応することが難しいクレームについては、十分に話を聞いたうえで、その旨を患者さんに伝え、担当者に訴えを聞いてもらう様にしましょう。 患者さんのクレームや訴えの中に、患者さんが1番伝えたいとしてポイントが何なのか見出さなければなりません。訴えに注意深く耳を傾けていると、繰り返し出現する言葉があると思います。それが患者さんの1番伝えたいポイントであることが多いです。そのポイントが分からなければ、患者さんのクレームを解決することはできません。 また訴えを聞く際に注意すべきことは、患者さんの話を途中で中断しない、否定しないということです。まずは誠意を持って聞くということに徹しましょう。間違っても、患者さんの話の途中に割り込んで、否定する様なことはしてはいけません。患者さんの訴えを聞き、伝えたいポイントを見出す、また訴えを聞く姿勢が、問題解決には大変重要になります。 3. 患者さんの思いや要望にできる限り答える姿勢を示す 患者さんの訴えをしっかりと聞き、伝えたいポイントが理解できれば、今度はこちらの状況を伝え、できる限りの要望に応えるという姿勢を示しましょう。この時、患者さんの立場に立ち話をすることが大切です。 共感できる部分があれば、「私が〇〇さんの立場でも同じ様に感じると思います。」などの言葉掛けも大切です。しかし、根拠のない、一方的で、何を訴えたいのか分からないクレームについては、無理に共感する必要はありません。誠意を持って話を聞き、それでもこちらがどの様な対策を検討すべきか分からないときは、上司や担当者へ患者さんの思いを伝え、引き続き話を聞かせていただくことを説明しましょう。 先延ばしにすると、事態はさらに混乱する場合もありますので、他者へ対応を引き継ぐ場合にも、具体的にどの様に対応するかを患者さんに必ず伝えましょう。例えば上司に相談し、「30分後に上司がお話を伺いに参ります。」「担当者の〇〇が再度お話を伺いに参ります。」など、具体的な対応が大切です。 4.
皆さんもこれから実習で色んな経験をすると思います。 時には辛かったり、逃げたしたかったりすることも出てくるかもしれません。 ですが、その経験や感情はこれから看護師になる皆さんにとって、 一生忘れることができない大切な思い出になると思います。 実習は朝も早く、記録を書くのも大変かもしれませんが、がんばって乗り越えていきましょう! ☟【実習お役立ち特集】記事一覧はコチラ☟ LINE・Twitterで、学生向けにお役立ち情報をお知らせしています。
この記事を書いた人: 永島直俊 看護師として17年臨床勤務。 看護管理、院内感染、医療安全、救命救急、手術室、病棟看護経験あり。 管理職(看護部長の経験あり)として、各種管理、病院経営、職員教育の実戦経験あり。 現在はフリーランスとして医療関連、看護関連の執筆、記事監修などをおこないながら、次なる目標を求めて自己研鑽中。 この記事につけられたタグ ストレス 患者 看護師が書く看護師のための記事 看護師ライター:永島直俊 職場トラブル