Hi firstly I am not a coder and am attempting this using you and the web as my guide and way of learning so will be very appreciative of any help people are able to give.

I have a control button that at this point sends an email with a word document attached but I want it to send it as the body text of the email without the button included and is that is not possible as a PDF attachment.

thanks for your assistance in advance.

here is the code that I am using.



Private Sub CommandButton1_Click()
Dim xOutlookObj As Object

Dim xEmail As Object

Dim xDoc As Document

Application.ScreenUpdating = False

Set xOutlookObj = CreateObject("Outlook.Application")

Set xEmail = xOutlookObj.CreateItem(olMailItem)

Set xDoc = ActiveDocument

xDoc.Save

With xEmail

.Subject = "Non-Negative DAS Reprt"

.Body = "Plaese see attached documet for details of Non-Negative DAS result"

.To = "sdgmnurse@anglogoldashanti.com"

.Importance = olImportanceNormal

.Attachments.Add xDoc.FullName

.Display

End With

Set xDoc = Nothing

Set xEmail = Nothing

Set xOutlookObj = Nothing

Application.ScreenUpdating = True

End Sub

Have a look at this code
Send Word document as email body - Simple Excel VBA which shows how to provide formatted text in the body of the email.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

thanks I have tried replacing the code with the code supplied in the link putting in the email address ect but when i hit the control button it does not work (nothing happens)

thanks I have tried replacing the code with the code supplied in the link putting in the email address ect but when i hit the control button it does not work (nothing happens)

Can you show me the code after you adapted from that source? You already had the document open so your code would need to take that into account and wouldn't need to open the document again.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

The obvious issue in your code is that you have used Outlook commands rather than their numeric equivalents. See attached.

Attached Files

Example Code.docm (23.7 KB, 5 views)

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com