Excelセルからユーザー名を読み取ってそのユーザーに電子メールを送信するVBAコード

Question

Excelのセルからユーザー名の行を読み取り、そのユーザーに電子メールを送信するExcel VBAコードの作成にはいくつかの助けが必要です。 Outlookの連絡先リストでユーザーの電子メールアドレスを検索します。

私は、Outlookの作成メールダイアログボックスをスプレッドシートから呼び出すコードを書くことができました。

Answer 1

あなたはメールでの範囲でためを使用し、電子メールに

Public Sub SendMail(MailTO As String, MailSubject As String, MailBody As String) 
'http://officevb.com 

Dim appOL    As Object 
Dim myEmail    As Object 
Dim TxtHello   As String 

Set appOL = CreateObject("Outlook.Application") 
Set myEmail = appOL.CreateItem(olMailItem) 

'Use hour to create a text 
Select Case Hour(Time) 
    Case Is <= 12 
     TxtHello = "Good Morning," & vbNewLine 
    Case Is >= 12 
     TxtHello = "Good Afternoom," & vbNewLine 
    Case Is >= 18 
     TxtHello = "Good Night," & vbNewLine 
End Select 

    With myEmail 
     .display 
     .Recipients.Add MailTO 
     .Subject = MailSubject 
     .Body = TxtHello & MailBody 
     .Send 
    End With 

Set myEmail = Nothing 
Set appOL = Nothing 

End Sub 

呼び出し、このサブ

sendmailの「Mail@yourContact.com」、「テスト」、これらのパラメータを渡すを送信するには、このprocのを呼び出すことができます「これは自動メールです」

[]の