Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Button to Send Email
I want to have the user click the button and send the current workbook
as an attachement to certian users. I can get to bring up Outlook and have it populate my certain email addresses by using: .... Set oMailItem = oOutlook.CreateItem(0) With oMailItem Set oRecipient = ") oRecipient.Type = 1 .Subject = "Agent Form Data for " & emailDate .Body = "This Agent was submitted on: " & emailDate .Attachments.Add sAttachment .Display .... but when using this I've been trying to use ..attachments.add "some local drive file" but can't use activeworkbook or anything. Any thoughts? Thanks in Advance Dave |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Button to Send Email
..Attachments.Add ThisWorkbook.FullName
should do it. -- Jim Rech Excel MVP "Dave D." wrote in message om... |I want to have the user click the button and send the current workbook | as an attachement to certian users. I can get to bring up Outlook and | have it populate my certain email addresses by using: | | ... | Set oMailItem = oOutlook.CreateItem(0) | With oMailItem | Set oRecipient = | ") | oRecipient.Type = 1 | .Subject = "Agent Form Data for " & emailDate | .Body = "This Agent was submitted on: " & emailDate | .Attachments.Add sAttachment | .Display | ... | | but when using this I've been trying to use | .attachments.add "some local drive file" but can't use activeworkbook | or anything. Any thoughts? | | Thanks in Advance | | Dave |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Button to Send Email
Hi Jim -
That code works great, it attaches the file, but the saved version. I have people filling out information, then I want them to click the button send the information they typed in. Basically do the exact same thing as if they went up to File--Send--File as Attachment I have menu's locked and such as thats why the users can't just do that instead of clicking on my email button. Thanks Jim in Advance Dave D. -----Original Message----- ..Attachments.Add ThisWorkbook.FullName should do it. -- Jim Rech Excel MVP "Dave D." wrote in message . com... |I want to have the user click the button and send the current workbook | as an attachement to certian users. I can get to bring up Outlook and | have it populate my certain email addresses by using: | | ... | Set oMailItem = oOutlook.CreateItem(0) | With oMailItem | Set oRecipient = | ") | oRecipient.Type = 1 | .Subject = "Agent Form Data for " & emailDate | .Body = "This Agent was submitted on: " & emailDate | .Attachments.Add sAttachment | .Display | ... | | but when using this I've been trying to use | .attachments.add "some local drive file" but can't use activeworkbook | or anything. Any thoughts? | | Thanks in Advance | | Dave . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Button to Send Email
I guess you're going to have to force a save if needed before you attach the
file: If Not ThisWorkbook.Saved Then ThisWorkbook.Save -- Jim Rech Excel MVP "Dave D." wrote in message ... | Hi Jim - | | That code works great, it attaches the file, but the | saved version. I have people filling out information, | then I want them to click the button send the information | they typed in. Basically do the exact same thing as if | they went up to File--Send--File as Attachment I have | menu's locked and such as thats why the users can't just | do that instead of clicking on my email button. | | Thanks Jim in Advance | | Dave D. | -----Original Message----- | ..Attachments.Add ThisWorkbook.FullName | | should do it. | | -- | Jim Rech | Excel MVP | "Dave D." wrote in message | . com... | |I want to have the user click the button and send the | current workbook | | as an attachement to certian users. I can get to bring | up Outlook and | | have it populate my certain email addresses by using: | | | | ... | | Set oMailItem = oOutlook.CreateItem(0) | | With oMailItem | | Set oRecipient = | | ") | | oRecipient.Type = 1 | | .Subject = "Agent Form Data for " & | emailDate | | .Body = "This Agent was submitted on: " & | emailDate | | .Attachments.Add sAttachment | | .Display | | ... | | | | but when using this I've been trying to use | | .attachments.add "some local drive file" but can't use | activeworkbook | | or anything. Any thoughts? | | | | Thanks in Advance | | | | Dave | | | . | |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Button to Send Email
If you use SendMail code it will do what you want
http://www.rondebruin.nl/sendmail.htm#Workbook -- Regards Ron de Bruin http://www.rondebruin.nl "Dave D." wrote in message ... Hi Jim - That code works great, it attaches the file, but the saved version. I have people filling out information, then I want them to click the button send the information they typed in. Basically do the exact same thing as if they went up to File--Send--File as Attachment I have menu's locked and such as thats why the users can't just do that instead of clicking on my email button. Thanks Jim in Advance Dave D. -----Original Message----- ..Attachments.Add ThisWorkbook.FullName should do it. -- Jim Rech Excel MVP "Dave D." wrote in message . com... |I want to have the user click the button and send the current workbook | as an attachement to certian users. I can get to bring up Outlook and | have it populate my certain email addresses by using: | | ... | Set oMailItem = oOutlook.CreateItem(0) | With oMailItem | Set oRecipient = | ") | oRecipient.Type = 1 | .Subject = "Agent Form Data for " & emailDate | .Body = "This Agent was submitted on: " & emailDate | .Attachments.Add sAttachment | .Display | ... | | but when using this I've been trying to use | .attachments.add "some local drive file" but can't use activeworkbook | or anything. Any thoughts? | | Thanks in Advance | | Dave . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Command Button - Macro to print to pdf, then send pdf to email. | Excel Discussion (Misc queries) | |||
Button to send current excel workbook by email | Excel Discussion (Misc queries) | |||
Excel email mode send button?? | Excel Discussion (Misc queries) | |||
Can I send a doc to group of email addresses via a macro button? | Excel Discussion (Misc queries) | |||
cmd button, send form via email | Excel Programming |