Excel VBAでメール送信する簡単な方法

VBAでメールの送信は色々と面倒な事がおきます。
文字化けだとか、送信できていないだとかいろいろ格闘して疲れた人向けです。
いろいろ疲れすぎているので参照設定すら必要無いように作りました。

'Outlookを起動してメールを送る
With CreateObject("Outlook.Application").CreateItem(0)
    .to = "送り先@gmail.com,送り先2@hotmail.com"
    .cc = ""
    .bcc = ""
    .Subject = "メール送信テスト" & Now
    .BodyFormat = 1 '1=text 2=html
    .Body = "Hello !" & vbCrLf & Now
    '.Attachments.Add environ("tmp") & "\hogehoge.zip" 
    .Send
End With

一応解説をすると、メール送信はOutlookを使います。
事前にOutlook側でメール送受信できることを確認できていれば失敗する要員は無いでしょう。