すべてのブログから「#OneNote」タグの検索結果

٩(σ▿σ)و 宛先＋CC欄追加に成功数十万円かけ開発した社内アプリと遜色ないどころか機能を拡充できるなんてありがとうAccess　|дﾟ)コード編集にはOneNoteが便利Microsoft標準搭載履歴を書き留めていけるし検索しやすく学習向きCC欄追加のためのコード編集箇所は４つ① SELECT文に 「T_送信先」マスタテーブルの[CC] 追加② CC情報格納のための変数宣言：Dim ccAddr As String 追加③ CCフィールド読込：ccAddr = ParseEmail(rs.Fields("CC").Value)追加　※ParseEmailとは構文からアドレス文字列のみ抽出して整形する働き④ CCの中身を設定：If Len(ccAddr) > 0 Then　追加　※CC欄にゼロを超えるデータ量、つまり何らかの情報が存在すれば稼働CC追加版コード全文掲載Private Sub cmd_メール作成_Click()    On Error GoTo ErrHandler    ' 実行パラメータ    Dim AccountIndex As Long: AccountIndex = 1    Dim IntervalMs As Long: IntervalMs = 700    ' 送信フロー制御    Dim ShowConfirm As Boolean: ShowConfirm = True ' 送信前にプレビュー表示する    Dim SaveToDrafts As Boolean: SaveToDrafts = False ' メール下書

Option Explicit Option Base 0 ' '【メモ】ツール(T)>参照設定(R）に '　　　　Microsoft OneNote xx.x Object　Labrary ' Microsoft XML vx.x ' のライブラリーにチェックを入れる。 ' '*スリープＡＰＩ Private Declare PtrSafe Sub Sleep Lib "KERNEL32.dll" (ByVal dwMillisconds As Long) ' ' Public Sub OneNoteページ追加サンプルマクロ()     Dim objExec As Object, appOne As OneNote.Application     Dim strSecI As String, strHie As String     Dim domDocu As DOMDocument60, objElem As Object     Dim intPgCn As Integer     Dim strPgId As String, strPage As String     'OneNoteプログラム起動     Set objExec = CreateObject("WScript.Shell").Exec("ONENOTE.EXE")     Sleep (1500)     '     'OneNoteオブジェクト設定     Set appOne = VBA.CreateObject("OneNote.Application")