hello
i'm working on an excel sheet and i want to create a command button with a macro to Send single sheet as message body , can anyone help in writing this visual basic macro (especially sheet as message body).
Public Sub SendMailMessage()
Dim mailAddress As String
Dim Subject As String
' Set myAttachments = olItem.Body
' myAttachments.Add (active.Sheet)
Dim olApp As Object, olItem As Object
Set olApp = CreateObject("Outlook.Application"
Set olItem = olApp.CreateItem(olMailItem)
olItem.Recipients.Add "smajid@roamman.com.jo"
olItem.Subject = "Some Subject"
olItem.Body =??????(i want activesheet)?????
olItem.DeleteAfterSubmit = True
olItem.OriginatorDeliveryReportRequested = False
olItem.ReadReceiptRequested = False
olItem.display
'OpenEmail = True
End Sub
please help
suha
i'm working on an excel sheet and i want to create a command button with a macro to Send single sheet as message body , can anyone help in writing this visual basic macro (especially sheet as message body).
Public Sub SendMailMessage()
Dim mailAddress As String
Dim Subject As String
' Set myAttachments = olItem.Body
' myAttachments.Add (active.Sheet)
Dim olApp As Object, olItem As Object
Set olApp = CreateObject("Outlook.Application"
Set olItem = olApp.CreateItem(olMailItem)
olItem.Recipients.Add "smajid@roamman.com.jo"
olItem.Subject = "Some Subject"
olItem.Body =??????(i want activesheet)?????
olItem.DeleteAfterSubmit = True
olItem.OriginatorDeliveryReportRequested = False
olItem.ReadReceiptRequested = False
olItem.display
'OpenEmail = True
End Sub
please help
suha