When Checkbox clicked > Send mail

[ING Hammer]

Hello,

I am very new to VBA and trying to find out how to make this work.

So basically I have a Checkmark from D2 to unlimited.
When Checkmark is clicked > Display Message

I have the following code written so far but I don't know how to display my message without having to run the simulation.. I don't know how to pass the function to open my message windows with an if command.
This is my code so far:

Sub CheckBox_Date_stamp() is just when Checkbox gets clicked, Date is going to be passed in the next cell and in the second cell a "yes" or "no" text.
I am sorry if this looks like a mess for you, but like I mentioned I am very new to this (started yesterday). Please be patient with me >.<

Sub CheckBox_Date_stamp()

Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
    
    With xChk.TopLeftCell.Offset(, 2)
    If xChk.Value = xlOff Then
        .Value = "Nein"
    Else
       .Value = "Ja"
    End If
    
End With
End With
End Sub

Sub Email_From_Excel_Basic()

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

emailItem.to = "Test@test,com"
emailItem.Subject = "Test"
emailItem.Body = "Test Text"

'emailItem.Send
emailItem.Display

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub

 

[ING Hammer]

Maybe the subject is not correct.
It should not send the Mail, it should open the message box

 

[ING Hammer]

Hello, i solved it myself. This was really easy, I thought it would be wrong because the debuger told me something is wrong.
Actually there wasn't anything wrong, the makro was just not assigned.

Sub CheckBox_Date_stamp()

Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
    
    With xChk.TopLeftCell.Offset(, 2)
    If xChk.Value = xlOff Then
        .Value = "Nein"
    Else
       .Value = "Ja"
        emailItem.Display
        emailItem.to = "Test@test.com"
        emailItem.Subject = "Test"
        emailItem.Body = "Test Text 1"
        emailItem.Body = "Test Text 2"
    End If
    
End With
End With
End Sub

 

[ING Hammer]

Okay, I am now struggling with new lines

So I tried different ways which I found on google while researching.

Can somebody tell me how I can make multiple lines in my email body??

Sub CheckBox_Date_stamp()

Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
    
    With xChk.TopLeftCell.Offset(, 2)
    If xChk.Value = xlOff Then
        .Value = "Nein"
    Else
       .Value = "Ja"
        emailItem.Display
        emailItem.to = "Test@test.com"
        emailItem.Subject = "Test"
        emailItem.Body = "Test Text 1" & "<br>" & "Next line"
    End If
    
End With
End With
End Sub

I found out that <br> is only used by html .. I also tried the following thing:

        emailItem.Display
        emailItem.to = "Test@test.com"
        emailItem.Subject = "Test"
        emailItem.Body = "Test Text 1" & vbLf  & "Next line"

This worked out for me