'コード3|メールを作成して、差出人、本文、署名を入れ込む Set outlookObj = CreateObject("Outlook.Application") Set mailItemObj = outlookObj.CreateItem(olMailItem) mailItemObj.BodyFormat = 2 'HTML形式 mailItemObj.To = toaddress 'to宛先をセット ...
だとしたら、Outlook のオプション設定 [メール]-[メッセージ形式]-[指定の文字数で自動的に文字列を折り返す] の影響を受けているのだと思います。(30～132 の範囲で指定:初期値は 76) 自動折り返しを避けたいのであれば、BodyFormat を olFormatPlain に差し替えてから、Body を書き込...
Outlookを用いたメール送信処理が安定しません Outlook用VBAで差出人の名前を取得したい PasteSpecialメソッドで 値と数値の書式で貼り付けすると 実行時エラー'1004となる PDFをExcelハイパーリンクで開くと全画面表示!? PDF作成時にフォントを埋め込まない様にしたい Range クラスのオートフィ...
Sheet1のボタンが押されたら、Sheet2のデータを2箇所範囲コピーし、OutLookの新規メールを開きSheet1の該当セルデータをBodyで出力し、Sheet2の範囲コピーしたデータをそのメール本文へ出力したい。 ①Sheet2のデータを範囲指定(2箇所:A,B)、コピー ...
'outlook 起動 Set oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display 'メールアイテムの作成 Set objMAIL = oApp.CreateItem(0) ...