Public Sub CreateMail()
'Creates a new e-mail item and modifies its properties.

    Dim olApp As Outlook.Application
    Dim objMail As MailItem
    Set olApp = Outlook.Application
    'Create mail item
    Set objMail = olApp.CreateItem(olMailItem)

    With objMail
       'Set body format to HTML
       '.BodyFormat = olFormatHTML
       .To = "test@mail.com"
       '.CC = "test@mail.com"
       .Subject = "제목 테스트"
       .Body = "내용" & vbCrLf & "내용"
       .Display
    End With    

End Sub

트랙백 주소 :: http://utizen.net/trackback/2460771 관련글 쓰기

댓글을 달아 주세요