*

メール作成

公開日: : Excel VBA

新規メールを作成する。

Dim strMOJI As String '本文
Dim strSign As String '署名
Dim strMailTo As String
Dim strMailcc As String'CC
Dim strSubject As string
'#############################################
'##入力部分####################################
'#############################################
'メールあて先
strMailTo =""
'メールCCあて先
strMailcc =""
'件名
strSubject = ""
'[本文]改行はvbCrLf
strMOJI = "" 

'##############################################
Dim oApp    As Object 'Outlookのオブジェクト
Dim objMAIL As Object 'メールのオブジェクト
Set oApp = CreateObject("Outlook.Application")

Dim myNameSpace As Object
Dim myFolder    As Object
Set myNameSpace = oApp.GetNamespace("MAPI")

'規定のフォルダー
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display  
Set objMAIL = oApp.CreateItem(0)
'画面表示
objMAIL.Display 

objMAIL.To = strMailTo
objMAIL.CC = strMailcc
objMAIL.Subject = strSubject
strSign = objMAIL.Body
objMAIL.Body = strMOJI & vbCrLf & strSign

objMAIL.Display

'Set objMAIL = Nothing
'Set myFolder = Nothing
'Set oApp = Nothing

admax_area



関連記事

no image

mail

http://okwave.jp/qa/q7645239.html

記事を読む

no image

エクセルファイルをPDF化する

とりあえず動くやつ 事前準備 ダウンロード:BullZip http://www.bull

記事を読む

no image

tmp

Dim str(1000, 2) As String Dim cnt  As Integer c

記事を読む

admax_area



Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

PREV
てmp
NEXT
index.php

admax_area



PAGE TOP ↑