RIALAB. – ページ 5 – 福島県郡山市で生産管理や販売管理、EAP(従業員支援プログラム)業務支援など、オーダーメイドな業務システムの開発をしているエンジニアのサイト

VB .NETからメールを送信

木曜日 , 14, 5月 2020 makoto .NET, Windows, コードスニペット, 技術的なメモ Leave a comment

.NET環境からのメール送信について、検証用にいくつかの方法を試したときのメモです。

Windowsの規定のアプリで設定されているメーラーを起動

送信先のメールアドレス、件名、本文が設定された状態でWindowsの規定のアプリで設定されているメーラーが起動します。
この方法ではメールの送信を行うことはできませんが、たった1行で編集画面に最低限の初期値を流し込むことができるので便利です。

CCやBCCも「&cc=《CC先メールアドレス》」「&bcc=《BCC先メールアドレス》」とパラメータをつなげることで設定可能です。

System.Diagnostics.Process.Start("mailto:" & 《送信先メールアドレス》 & "?subject=" & Uri.EscapeDataString(《件名》) & "&body=" & Uri.EscapeDataString(《本文》))

Outlookを使用してメール送信

WindowsにインストールされているOutlookを使いメールを送信します。
送信に使用するメールサーバなどの設定はOutlookで設定されているものを使用し、送信したメールはOutlookの『送信済みアイテム』に残るので便利です。

Dim app As Object
Dim item As Object

app = CreateObject("Outlook.Application")

item = app.CreateItem(0)    ' 0 = OlItemType.olMailItem
item.To = "《送信先メールアドレス》"
item.Subject = "《件名》"
item.Body = "《本文》"

item.Send()

app.Quit()

MailKitを使用してメール送信

MailKit( https://github.com/jstedfast/MailKit )を使いメールを送信します。
MailKitはNuGet経由などであらかじめインストールされている必要があります。
この方法は、依存するライブラリやソフトが非常に少なく.NET Coreでも使用可能です。また、送信に関する多くの項目を自分で設定できるので便利です。

Dim mimeMessage As New MimeKit.MimeMessage

mimeMessage.From.Add(New MimeKit.MailboxAddress("《送信元氏名》", "《送信元メールアドレス》"))
mimeMessage.To.Add(New MimeKit.MailboxAddress("《送信先氏名》", "《送信先メールアドレス》"))
mimeMessage.Subject = "《件名》"
mimeMessage.Body = New MimeKit.TextPart(MimeKit.Text.TextFormat.Plain) With {.Text = "《本文》"}

Using client As New MailKit.Net.Smtp.SmtpClient()
    client.Connect("《SMTPホスト》", 《SMTPポート番号》, MailKit.Security.SecureSocketOptions.Auto)
    client.Authenticate("《SMTPユーザ名》", "《パスワード》")
    client.Send(mimeMessage)
    client.Disconnect(True)
End Using

Googleにログインしようとすると「時間内にセキュリティキーが見つかりませんでした。」と表示される

日曜日 , 19, 4月 2020 makoto Google, セキュリティ, 技術的なメモ Leave a comment

Androitタブレットの設定を行っているとき、Googleアカウントへのログインでつまづきました。

「時間内にセキュリティキーが見つかりませんでした。もう一度お試しください。」と表示され、そこから先に進めなくなってしまったのです。

これはまずいと試行錯誤し解決したときのメモです。

七十七銀行のスマホ向けアプリ『七十七銀行アプリ』の使い方について(ERR086120の原因)

火曜日 , 31, 3月 2020 makoto 日々 4 Comments

宮城県仙台市に本拠地を置く七十七銀行のスマホ向けアプリ『七十七銀行アプリ』を使おうとしたところまったくうまくいかず、窓口で尋ねてわかったことの備忘録です。

スクリーンショットはiPhoneで撮りましたが、実際にはiOS/Androidの両方で試し、同じエラーが出ていますので、おそらく同じ挙動をすると思われます。

Hibernate XML Configurationファイル(.cfg.xml)が文字化けするときの対処

火曜日 , 24, 3月 2020 makoto Java, コードスニペット, 技術的なメモ Leave a comment

Eclipseのプラグイン、JBoss Toolsに含まれるHibernate Toolsを使いRDBMSのテーブル構造から自動でHibernateのマッピングファイル群を生成(Hibernate Code Generation)しようとしたとき、下図のようにコメントなど日本語部分が文字化けしてしまうことがあります。

文字化けに気づかず実行すると下記のようなメッセージで例外が発生することがあります。

Error parsing XML: XML InputStream(5) 1バイトのUTF-8シーケンスのバイト1が無効です。

AccessのMDB/ACCDBファイルからほぼすべての要素をレポートにまとめるツール

日曜日 , 2, 2月 2020 makoto .NET, Office, Windows, データベース, 技術的なメモ Leave a comment

Microsoft Accessの.mdbファイル/.accdbファイルから、テーブル/クエリ/フォーム/レポート/モジュール/マクロの一覧表を作成するプログラムを公開します。

(2020/02/06更新)

ExcelDataReaderで文字化けなくファイルを読み込む

日曜日 , 29, 9月 2019 makoto .NET, Windows, コードスニペット, 技術的なメモ Leave a comment

C#やVB .NETでExcelを使わずにExcelのファイルを読み込むときの定番NPOIを使用せずExcelDataReaderで文字化けなくファイルを読み込むための方法です。

タミヤ『カムプログラムロボット工作セット』とIchigoJamのサンプルプログラム

日曜日 , 16, 6月 2019 makoto コードスニペット, 技術的なメモ Leave a comment

タミヤの『楽しい工作シリーズ No.227 カムロボット工作セット』と『IchigoJam』の組み合わせで動くサンプルプログラムを作ってみました。

プログラムを実行するとIchigoJamにつながっているキーボードがリモコンになり、キー入力をするとカムロボット(カムロボ)が動きます。

KB4497934を適用するとレイアウトが崩れる? [とりあえず解決]

木曜日 , 30, 5月 2019 makoto .NET, Windows, 技術的なメモ Leave a comment

「KB4497934を適用するとレイアウトが崩れる?」の続きです。

検索キーワードが絞り込めたので、改めてインターネットを検索してみるとQiitaで@tfukumoriさんの記事が見つかりました。

『2019/4/26のWindows 新元号（令和）対応パッチでのフォント変更？での不具合調査（Windows 7, 10 1803, .NET, Excel）』 (https://qiita.com/tfukumori/items/a1fb3984a3488875515e)

@tfukumoriさんの記事を読んでいくと自分が遭遇している現象と同じようです。

自分の場合、KB4497934で現象が起きましたが、俗に「令和対応」と呼ばれるパッチがリリースされたあたりから発生しているようです。

さらに読み進めていくと、この現象を解決するための修正パッチが配布されているようです。

Windows Updateでの修正（5/15追記）

Windows Update 定例パッチ（Bリリース、アメリカ第2火曜日の翌日、日本では5/15）で修正されたようです。

えっ、自分の環境では解決できていない…

ページに書いてあった情報をヒントに試してみたところ、解決ができたので修正方法を以下に記載します。

KB4497934を適用するとレイアウトが崩れる?

木曜日 , 30, 5月 2019 makoto .NET, Windows, 技術的なメモ 2 Comments

「KB4497934を適用するとフォントの大きさが変わる?」でアップデートを適用するとフォントの大きさが変わるようだと記事を書きましたが、それ以外にも違いがあるようです。

差異を確認したのはVB .NETのSystem.Windows.Forms.Formクラスを継承したクラスでインスタンス生成時に発生するフォームのResizeイベントです。
具体的には、フォームのコンストラクタから呼び出されるInitializeComponentメソッドの実行中に発生するResizeイベントの発生回数が変わります。

確認した環境

Windows 10 Pro Version 1809 Build 17753.475
Visual Studio Professional 2017 Version 15.9.11
VB .NETを用いたWindows Formsアプリ

アップデート適用前にResizeイベントが発生するタイミング

Me.ClientSizeプロパティ設定時
Me.Locationプロパティ設定時
フォーム内のコントロール(コンテナ)に対するEndInitメソッド実行時

アップデート適用後にResizeイベントが発生するタイミング

Me.ClientSizeプロパティ設定時
Me.Locationプロパティ設定時
フォーム内のコントロール(コンテナ)に対するEndInitメソッド実行時
Me.ResumeLayoutメソッド実行時

比べてみると、アップデート適用後の4回目のResizeイベントが発生したタイミングでフォームのレイアウトが崩れてしまっています。
調査のために使用したフォームでは145ピクセル相当の横ずれが生じているようです。
全体の幅が1000ピクセル強の中で145ピクセルのずれなので見た目的にはかなりの違和感があります。

4回目のResizeイベント発生自体はInitializeComponentメソッドのMe.ResumeLayoutメソッドを呼び出している部分をコメントアウトすることで抑制できます。
(かなり乱暴な方法ですが、ResumeLayoutの引数を変えるなどでは抑制できませんでした。)
しかし、Resizeイベントの発生を抑制した状態でも生成されたフォームを確認するとフォントの大きさが異なるためか、やはりレイアウトが崩れています。
全体的にフォントの横幅が狭まっているのか前詰め状態になっています。

Windows Updateで改善されるのを待つのが無難かもしれません。

InitializeComponentメソッドの変更ですが、ソースを確認すると以下のように変更をするなとコメントされている部分なので危険性を理解したうえで変更するようにしてください。

‘メモ: 以下のプロシージャは Windows フォームデザイナで必要です。
‘Windows フォームデザイナを使って変更できます。
‘コードエディタを使用して、変更しないでください。

※2019/05/30 14:00 「KB4497934を適用するとレイアウトが崩れる? [とりあえず解決]」にこの記事の続きを書きました。

KB4497934を適用するとフォントの大きさが変わる?

水曜日 , 29, 5月 2019 makoto .NET, Windows, 技術的なメモ Leave a comment

Windows 10のWindows UpdateでKB4497934
(2019年5月21日リリース)を適用するとフォントの大きさが変わってしまうケースがあるようです。

この現象を確認しているのは、MS UIゴシックとMS Pゴシックの2種類です。
(Visual Studio Professional 2017 Version 15.9.11上でVB .NETを用いてWindows Formsアプリを開発しているときに発生)

掲載したサンプルはSystem.Windows.Forms.LabelとSystem.Windows.Forms.TextBoxを用いてフォントにMS UI ゴシックを指定して表示してみました。
このサンプルではわずか数ピクセル程度のずれですが、String.Drawing.GraphicsクラスのMeasureStringメソッドなどを用いて描画サイズを測りながら描画位置を調整するような処理を行うと、かなり大きくずれて表示されます。
守秘義務の都合上公開はできないのですが作業中のプロジェクトではドン引きするくらいに画面が崩れています。