窓付き封筒のススメ（備忘録）

(背景)
昨今、１シート８枚〜１２枚のラベル印刷による封筒の宛名書きが盛んに利用されていますが、債権債務の発生する文書では、なじまない。つまり、せっかく貼り付けたラベルを、郵送途中で剥がされてしまはないか。試しに剥がして実験してみると、きれいに貼る前の状態に剥がれてしまった。
失敗すると、封筒の一部がくっつかって剥がれてしまった。これでは、パンフレットの配布ぐらいで、郵送の後、債権債務が発生したりする公文書ではなじまないのではないかと疑義の念が生じた。
　特に、自治体や国の機関からの郵送は、はがきサイズや封筒サイズが多くラベル印刷の方法はあまりさいようされていない。
長３封筒や角２封筒でＡ４版サイズの書類を送付するとなるとラベル印刷による郵送手続きは、窓付き封筒以外はラベル住所添付封筒で郵送する件数が多いほど採用されやすい。
　窓付き封筒を一般に使用する義務が個人情報保護の立場から、あるのだろうか。
（実態・問題）
企業の請求書やその他の書類また、裁判所などから郵送される書類は、窓付き封筒か、直接印字された封筒が郵送用に使用されている。絶対性があるのかどうかは、すぐに解答できないが、恐らく債権債務の発生する重要文書であるためとか、特定の人物宛のため親展のゴム印を赤で押印していたりする。簡易な文書は、一般に販売されている窓付き封筒以外の封筒に手書きでかかれてあったり、宛名書き又は住所宛名書きされたラベルを貼ったものや、直接ワープロで宛名印刷された封筒が散見される。大量郵送される書類ほどコスト感覚から宛名書き又は住所宛名書きされたラベルを貼った封筒が多く使用されやすい。窓付き封筒の方が、一番問題が小さいのではないかと。かっこよい明快な判断ができるホームページを探している。
（根拠等）
債権債務の発生文書や個人情報保護の観点から、直接印字によるか手書きによる封筒か窓付き封筒による郵送方法がベストではないだろうか。関連のホームページを調査中。
（今後はどうするか）
Ａ４版文書の多いこの時代、角２封筒や長３封筒の窓付き封筒を優先に使用。手元にない場合は、やむを得ず、市販の封筒でがまんする。面倒だ。コストが掛かりすぎると安易にラベル印刷による郵送方法を避け手書きか封筒印刷による郵送を検討していきたい。

参考サイト

A4用紙が折らずに入る窓付き封筒.html

https://www.print-support.jp/a4size-madotsuki/
知らないとトラブルになるかも？窓付き封筒作成時の注意点とルール

https://template.the-board.jp/business_tips/article/rules_and_points_for_envelope_with_window
ゆうパックの宛名印字サービスを利用しよう

http://mamarevolution.jp/%E3%82%86%E3%81%86%E3%83%91%E3%83%83%E3%82%AF%E3%81%AE%E5%AE%9B%E5%90%8D%E5%8D%B0%E5%AD%97%E3%82%B5%E3%83%BC%E3%83%93%E3%82%B9%E3%82%92%E5%88%A9%E7%94%A8%E3%81%97%E3%82%88%E3%81%86%EF%BD%9E%E3%81%93-286
エクセルで封筒の宛名印刷

http://excel-magic.com/post-61/

Excel（エクセル）技 : 住所録の番地を漢数字に変換する

http://excel.usefulhp.com/excel-waza/excel-waza13.htm



一部引用
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(E5,"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九"),"0","〇")
もう一文字追加したところ[SUBSTITUTE(]と「,"-","ﾉ")」データ量オーバーしてしまった。

郵便番号枠に差し込みデータを印刷する

http://openoffice-docj.osdn.jp/document/tips/tategaki.html

住所中の算用数字を漢数字に変換するユーザー定義関数

http://www.ruriplus.com/msaccess/faq/faq_036.html



一部引用【ユーザー定義関数】
Public Function AddressNum2Knj(argAddress As Variant) As String

Dim strAddress As String

Dim strChar As String

Dim strarrKan As Variant

Dim lngPos As Long
If IsNull(argAddress) Or argAddress = "" Then Exit Function

strarrKan = Array("〇", "一", "二", "三", "四", "五", "六", "七", "八", "九")
For lngPos = 1 To Len(argAddress)

    strChar = Mid(argAddress, lngPos, 1)

    If IsNumeric(StrConv(strChar, vbNarrow)) Then

        strAddress = strAddress & strarrKan(StrConv(strChar, vbNarrow))

    ElseIf strChar = "−" Or strChar = "-" Then

        strAddress = strAddress & "ー" 

    Else

        strAddress = strAddress & strChar

    End If

Next

AddressNum2Knj = strAddress

End Function