ING Hammer
New Member
- Joined
- Apr 12, 2024
- Messages
- 5
- Office Version
- 365
- Platform
- Windows
Hello,
so I want the following thing to add to this (I am very new to VBA and learning this since last friday):
- Send Mail from a specific Mail adress (emailItem.To does not work here)
- Have a Signature automatically drafted e.g. when I click the Checkmark the Mail Editor opens but my signature is missing although I have a signature set.
- When somebody else clicks on the checkbox, their signature should be seen instead of mine (if they have one)
Do I have to use html? This question popped up because my signature contains urls.
so I want the following thing to add to this (I am very new to VBA and learning this since last friday):
- Send Mail from a specific Mail adress (emailItem.To does not work here)
- Have a Signature automatically drafted e.g. when I click the Checkmark the Mail Editor opens but my signature is missing although I have a signature set.
- When somebody else clicks on the checkbox, their signature should be seen instead of mine (if they have one)
Do I have to use html? This question popped up because my signature contains urls.
VBA Code:
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 = "No"
Else
.Value = "Yes"
emailItem.Display
emailItem.to = "Test@Test.com"
emailItem.Subject = "Text1"
emailItem.Body = "Text2" & vbCrLf & vbCrLf & "Text3" & vbCrLf & vbCrLf & vbCrLf & "Text4"
End If
End With
End With
End Sub