"custom Voting Buttons" And "direct Replies To" On Automatic E-mails |
"custom Voting Buttons" And "direct Replies To" On Automatic E-mails - Excel |
|
I've got the below code that sends an E-mail from outlook via VBA coding in a macro, I would like someone to help me add into the code the following;
Custom Voting Buttons: Approve; Reject; Hold ECS
Redirect replies to another E-mail address.
VB:
Dim Email_Subject, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String Dim Mail_Object, Mail_Single As Variant Email_Subject = "Automatic Message: Re-sale Register" Email_Send_To = "[EMAIL="TestEmail@Test.co.uk"]TestEmail@Test.co.uk[/EMAIL]" Email_Bcc = "[EMAIL="AnotherEmail@Test.co.uk"]AnotherEmail@Test.co.uk[/EMAIL]" Email_Body = "New comments have been added to a part you've subscribed to" On Error Goto debugs Set Mail_Object = CreateObject("Outlook.Application") Set Mail_Single = Mail_Object.CreateItem(0) With Mail_Single .Subject = Email_Subject .To = Email_Send_To .BCC = Email_Bcc .Body = Email_Body .send End With debugs: If Err.Description <> "" Then MsgBox Err.DescriptionIf you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines
I know the following question is not to do with Excel but it's related and I need to re-think how to do the above if this isn't possible:
Is it possible to have an E-mail address in outlook look at all incoming E-mails and change a spreadsheet depending on what the E-mail says?
I know theres a few complex questions, feel free to ask more.
Thanks,
Ranmaru2
Similar Topics
Code:
Sub Mail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "cbelcher@jpfryelaw.com" .CC = "" .BCC = "" .Subject = "Burden Report" .Body = ActiveSheet.Range("A1:D12") .Attachments.Add ("C:\Documents and Settings\cbelcher\Desktop\Burden Report.xls") End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing Set objMsg = Nothing End Sub
In my Excel spreadsheet I have a column to store the email addresses of my clients. Every time I click on the text of an email address, it automatically opens Outlook with a new message composed to that address. How do I stop this from happening? I don't even use Outlook for my email and this is really frustrating. I've tried changing the format of the column to no avail.
Thank you; your help is most appreciated.
to the email address, like change the font color or change on letter, Excel
tries to email the address. If I click in the formula bar to make the
changes, it automatically changes it back to all blue text and underlined. I
have tried to format all of the cells as "Text" to show as entered, but it
doesnt work. PLEASE HELP
Some users of the macro are pressing the macro button and do not have Outlook open so the email isn't sent until they eventually open Outlook!
Thanks in advance
john doe email address here
for some reason the email address in brackets won't show up here but each email address is in brackets
I need to get the name in one column and the email address without the brackets into another, any ideas?
Code:
With OutMail .To = "name@name.com" .CC = "" .BCC = "" .Subject = "Attrition for" & Range("c5") .Body = "" .Attachments.Add wb2.FullName
When it sends it does not show the name in c5.
It just reads "Attrition for"
Should there be a different code?
I need a macro enabled file to send HTMLbody email with pre populated text to list of receipents.
Any Idea How can i do?
Many thanks
Ben
A specific problem is cells which don't have borders show up with very light grey borders in Outlook. This, I do not want.
TiA
Thanks in advance for any assistance.
Mick
I got the below macro which uses IE and open the URLs. I want to create a userform with listbox with radio button and commandbutton on the same which will help me to connect to each url when I select the same in listbox and click on the commandbutton.
Code:
Sub DoBrowse1() Dim ie As Object Set ie = CreateObject("Internetexplorer.Application") ie.Visible = True ie.Navigate "www.google.com" End Sub
Any suggestions..
My excel file will contain more than one tab.
I have to free the first two lines in all the tabs except the first one.
I tried the following code.
Code:
xlsobj.Worksheets(1).Rows("1:2").Select ActiveWindow.FreezePanes = True
But in this I have to change the Active Worksheets in VBA, Which I want to avoid.
Is there any method to achieve this without selecting the cells.
Something like
Code:
xlsobj.Worksheets(1).Rows("1:2").FreezePanes = True
I know Excel "ok", but I don't know programming.'
I'd like to be able to do something very simple (for now)...
For example...if I had PRODUCT / CODE / INV VALUE
A - CODE A - 5
B - CODE B - 11
C - CODE C - 14
I would want to be able to click a button (or scan a code for) : ADD +1 or REMOVE -1
...then scan the barcode on the product (A) and have it add or remove one, respectively. So, if the row for A is:
A - CODE A - 5
I choose "ADD" (with a button or scan code), then scan the barcode, and the spreadsheet automatically finds the code in the sheet, and changes the corresponding inventory value:
A - CODE A - 6
Does that make sense? How might I go about doing that?
I have a sheet with raw data a sheet with pivot tables a sheet with a dashboard and a simple macro
I don't have any #REF cells either.
Someone has any idea of what could be the problem?
thanks
NA
I am a new user and trying to setup a database in excel. I can select all addresses and copy but when trying to paste into excel it does so in 1 cell.
Is there a way I can paste the separate email id's into individual cells so I don't have to do it individually?
Many thanks
Patrick
All of the buttons were working fine. Then I saved and closed the workbook and went to lunch. Now when I open the workbook, the buttons don't work! When I click them nothing happens. They appear frozen. They don't even seem to click. No error message. Nothing.
If I right-click the button in Design Mode and select Properties, I get sheet properties not the button properties. I can't seem to locate the command button properties any longer. I still see the button name "cmdButtonGetInfo" and "=EMBED("Forms.CommandButton.1","") in the name box and formula bar. The odd thing is if I create a new button it works fine until I save and close the file. When I reopen the file none of the buttons work.
It's like the buttons are being disabled when I close or open the file. Any suggestions?
Per say here is what I am trying to do
If a certain "word" is used from the drop down list I want the background of
that cell to change its color to "green." And if later I change the "word" to
another from the drop down list, it will change it's color to a specified
color.
The drop down list that I use was created from cells that have the colors
already in the "word", but I do not know how to make the list show the colors
so it puts the word & color automatically in the drop down list to the cell
with the drop down (if that makes any sense).
If there is a way, please spell it out simple enough for me to understand,
as I don't know fully the capabilities of formulas or vba.
Code:
Sub test() Name "C:\myfolder\*.aqi" As "C:\myfolder\*.csv" End Sub
The problem is that VBA does not accept wild cards (at least as given here).
Any suggestions?
Thanks
abe