電子メールのVBAコードにuserform入力を電子メール本文に追加する

Question

Excelから電子メールを送信する必要がありますが、submitを押した後に電子メールの本文にuserformの値を入れる必要があります。

私はさまざまなことを試しましたが、私は以下のコードに固執しています。

Dim aOutlook As Object 
Dim aEmail As Object 
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String 

Set aOutlook = CreateObject("Outlook.Application") 
Set aEmail = aOutlook.CreateItem(0) 

'set Importance 
aEmail.Importance = 2 
'Set Subject 
aEmail.Subject = "TestMailSend" 
'Set Body for mail 
aEmail.Body = "Campaign Name" & Me.ComboBox5.Value 
       "Job Number" & Me.ComboBox4.Value 
       "Revenue" & Me.ComboBox3.Value 


'send one off to 1 person use this static code 
'aEmail.Recipients.Add "E-mail.address-here@ntlworld.com" 
aEmail.Recipients.Add "Insert email address here" 
'Send Mail 
aEmail.Send 

Answer 1

たぶん、あなたは以下を変更する必要があります。

'Set Body for mail 
aEmail.Body = "Campaign Name: " & Me.ComboBox5.Value & chr(10) & _ 
       "Job Number: " & Me.ComboBox4.Value & chr(10) & _ 
       "Revenue: " & Me.ComboBox3.Value 

&は、2つの値をマージし、chr(10)は、改行を追加し、_を使用すると、複数行のコードを書くことができます。

HTH;）