カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

Outlookを利用してメール送信 [VBA]

  • VB,VBA
  • 2014-05-23 - 更新:2022-09-24

ACCESSからOutlookを起動し、メールを送信することができます。
メール本文等にデータベースの内容などを引用して作成したい場合などに便利です。

【動作確認環境】
Windows XP & Microsof Office 2000
Windows7 & Microsoft Office 2010, 2013

まずは宣言

Dim oApp    As Object 'Outlookのオブジェクト
Dim objMAIL As Object 'メールのオブジェクト

Dim strMOJI As String '本文
Dim strSign As String '署名

Outlookを起動

オートメーションでOutlookを起動します。

Set oApp = CreateObject("Outlook.Application")

Outlook本体の画面も起動したいときは

Dim myNameSpace As Object
Dim myFolder    As Object

Set myNameSpace = oApp.GetNamespace("MAPI")

'規定のフォルダーを指定
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display  '表示

メールの作成

Set objMAIL = oApp.CreateItem(0)

objMAIL.Display '編集画面を表示

宛先を指定します。CC、Bccも可能です。
複数の宛先を；（セミコロン）で区切ることもできます。

objMAIL.To = mailTo
objMAIL.CC = mailcc
objMAIL.Bcc = mailbcc

続きを読む…»

, , ,
84,918 views

小文字の「i」が大文字になってしまう問題 [ACCESS]

例えば、Softbankの「…@i.softbank.jp」というメールアドレスを打ったとき、
@の後のiが大文字になってしまう場合があります。

この問題を解決するにはオートコレクトの設定を変更します。

メニューの[ツール]-[オートコレクト]を開きます。

「入力中にオートコレクト」のチェックを外します。
これで「i」が大文字にならないようになります。

私はついでに以下の２つもチェックを外しています。

・2文字目を小文字にする [THe … → The …]
・文の先頭文字を大文字にする [the … → The …]

,
3,022 views

既定のプログラムで実行させる

  • VB,VBA
  • 2014-05-07 - 更新:2014-06-04

ACCESSにてURLを指定しWEBページを開きたい場合、InternetExplorerのパスを指定して実行させることも可能ですが、ユーザーが設定している既定のブラウザで実行させることも可能です。
その場合は以下のようにします。

Dim ws As Object

Set ws = CreateObject("WScript.Shell")

ws.Run "http://www.yahoo.co.jp/", VbAppWinStyle.vbMaximizedFocus

このWScript.ShellのRunメソッドは、新しいプロセス内でプログラムを実行します。

ブラウザに限らず、他のプログラムでも応用することができます。
２番目の引数はウィンドウステータスを指定します。
主な設定例は以下の通りです。

VbAppWinStyle.vbHide 0
VbAppWinStyle.vbNormalFocus 1
VbAppWinStyle.vbMinimizedFocus 2
VbAppWinStyle.vbMaximizedFocus 3
VbAppWinStyle.vbNormalNoFocus 4
VbAppWinStyle.vbMinimizedNoFocus 6

また、上記では省略していますが、第３引数（bWaitOnReturn）にTRUEを指定すると、プログラムが終了するまでスクリプトの実行を待機します。

詳しくは参考URLをご覧ください。

参考URL
http://msdn.microsoft.com/ja-jp/library/cc364421.aspx

, ,
6,906 views

xcopyコマンド

Windowsにはバックアップに便利な「xcopy」というコマンドがあります。

xcopy "c:\src" "c:\backup" /s /d /h /r /y
オプション（一部）
/s ファイルが存在する場合のみディレクトリごとコピー
/d コピー先に同名のファイルが存在する場合に更新日が新しいファイルのみコピーする
/h 隠しファイルやシステムファイルも全てコピーする
/r 読み取り専用属性のファイルも上書きコピーできるようにする
/y 同名のファイルが存在する場合、上書きの確認を行わない
2,033 views

ADODB.Streamを使ったテキストファイルの読み書き

  • VB,VBA
  • 2014-01-23 - 更新:2022-09-23

通常のテキストファイルの読み込みや書き込みだと文字コードがShift_jisでしか扱えません。
他の文字コードを使いたい場合はADODB.Streamを使います。

テキストファイルの読み込み

Dim sr      As Object
Dim strData As String

Set sr = CreateObject("ADODB.Stream")

sr.Mode = 3 '読み取り/書き込みモード
sr.Type = 2 'テキストデータ
sr.Charset = "UTF-8" '文字コードを指定

sr.Open 'Streamオブジェクトを開く
sr.LoadFromFile ("ファイルのフルパス") 'ファイルの内容を読み込む
sr.Position = 0 'ポインタを先頭へ

strData = sr.ReadText() 'データ読み込み

sr.Close 'Streamを閉じる

Set sr = Nothing 'オブジェクトの解放

続きを読む…»

, , ,
228,891 views