-PR-
NTTPCのレンタルサーバー
基本情報技術者講座 28,000円から ★ぶっちぎり宅建ライブ開講★

リリースしたメール一括作成ツールについて、技術者向けの内容です。

概要

メール一括作成ツール(OutLook、Lotus)を外部から呼び出して使えます。

Excelを起動できるものなら何でも(.NET、Excel、JavaScript等のWEB関連・・・)

仕様

■外部から呼び出せるマクロ一覧

MAKE_MAIL_ITEM_TEST_NG() ・・・ 「メール作成」ボタンと同等の処理

宛先転記() ・・・アドレス帳シートの「宛先に追加」ボタンと同等の処理

■アドレス帳仕様

⇒名前定義

toriCode ・・・取引先コード範囲セル

⇒チェックボックスにチェックを入れる

A列のセルの値を”TRUE”にすると、チェックが入ります。

使用例:

<VBA:別のExcelBookからメール一括作成ツールを呼び出す>    

Sub CallMailTool()
‘//ツール起動
Workbooks.Open “C:\Users\ms\Documents\リリース済\Vectorメールツール\Lotusメール一括作成ツール.xls”

‘//アドレス帳シートを開き、取引先コードを検索
With ActiveWorkbook.Worksheets(“アドレス帳”)
Dim FoundCell As Range ‘検索結果のセル格納用変数
‘検索(toriCode = 名前定義。アドレス帳の取引先コードのセル範囲)
Set FoundCell = .Range(“toriCode”).Find(What:=”10223455″)

‘検索結果なし
If FoundCell Is Nothing Then
MsgBox “取引先がありませんでした”

‘検索結果あり
Else
‘チェックボックスにチェックを入れる(A列のセルにTRUEを入れる)
FoundCell.Offset(0, -1).Value = “TRUE”

‘//アドレス帳シートのチェックした項目を宛先シートに転記
Application.Run “Lotusメール一括作成ツール.xls!宛先転記”

‘//メール作成実行
Application.Run “Lotusメール一括作成ツール.xls!MAKE_MAIL_ITEM_TEST_NG”

‘//完了メッセージ
MsgBox “完了しました”
End If
End With

具体的な使用シーン

・社内WEBサイトで検索した結果を「本文」シートに自働転記してメール作成

・別のExcelツールで集計した代金未納の取引先コードを取得し、すべてに催促メールを作成

-PR-
NTTPCのレンタルサーバー
基本情報技術者講座 28,000円から ★ぶっちぎり宅建ライブ開講★

20140329追記・・・技術者向け情報、公開しました。

NotesとOutLookのメール一括作成ツールをベクターに公開しました。

複数のメールが一括作成できます。面倒なルーチンもこれで大幅に時間短縮!

説明動画: http://youtu.be/bJGnt2EoDR4

ロータスノーツ  Var:http://www.vector.co.jp/soft/winnt/net/se505887.html

OutLOOK Var:http://www.vector.co.jp/soft/win95/net/se505911.html

詳細は以下↓

Continue Reading »

-PR-
NTTPCのレンタルサーバー
基本情報技術者講座 28,000円から ★ぶっちぎり宅建ライブ開講★

LotusNotesIcon前の現場でOutLookにも不満たらたらでしたがまだカワイイもんでした。

今やさらにひどいLotus Notesを強制されています。なんてかわいそうなワタシ・゚・(ノД`;)・゚・

結構ファンもいるらしいし、ものすごく不便というわけでもないのですが

その独特っぷりと、使いにくいくせに微妙に便利なところが、第一印象から嫌いでした・・・。

ということで、Notesを何とかできないかなぁと模索中。なんか気に食わないんですよ・・・

ちょっとメールを取得するコードを書いてみました。

Continue Reading »