#1
|
|||
|
|||
help with control button code
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 |
#2
|
||||
|
||||
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 |
#3
|
|||
|
|||
thanks but did seem to work
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)
Last edited by JAS095; 08-28-2023 at 06:46 PM. Reason: sent twice |
#4
|
|||
|
|||
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)
|
#5
|
||||
|
||||
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 |
#6
|
||||
|
||||
The obvious issue in your code is that you have used Outlook commands rather than their numeric equivalents. See attached.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Adding Row with Content control using Command Button | baes10 | Word VBA | 0 | 12-13-2017 11:30 AM |
Command button shortcut Control + D | baes10 | Word VBA | 1 | 12-11-2017 01:14 AM |
ActiveX control button text keeps getting smaller | ondertar | Excel Programming | 1 | 09-29-2015 05:38 AM |
Prevent ActiveX Button Control from Deleted | screech | Word | 0 | 06-24-2014 07:29 AM |
Option Button ( ACtive X Control ) | aligahk06 | Excel | 0 | 11-03-2009 06:36 AM |