Computer Support Forum

Word Macro to Save & Send Email - Need Help!!

Question: Word Macro to Save & Send Email - Need Help!!

I am using the following code to email word document (its actually a form) as attachment and to save it to my "P:/" drive. It seems working but the code will need to modify for the following reasons:
Once I am done filling out the form and hit the command button to run the macro? the document (form) actually sent to email and also saved to my "P:/" drive successfully but its over saved the master file. I need the form to be blank at all time.
Also, I want to have the files to be stamp with date and time (as a file name for the form) that going to be email and save to "p:/" drive.
I will appreciate any help. Thanks!!

The code I am using is:

Private Sub CommandButton1_Click()

Dim OL As Object

Dim EmailItem As Object

Dim Doc As Document

Application.ScreenUpdating = False

Set OL = CreateObject("Outlook.Application")

Set EmailItem = OL.CreateItem(olMailItem)

Set Doc = ActiveDocument

Doc.SaveAs

With EmailItem

.Subject = "Insert Subject Here"

.Body = "Insert message here" & vbCrLf & _

"Line 2" & vbCrLf & _

"Line 3"

.To = "[email protected]"

.Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow

.Attachments.Add Doc.FullName

.Send

End With

Application.ScreenUpdating = True

Set Doc = Nothing

Set OL = Nothing

Set EmailItem = Nothing

Flag = True

sPath = "P:\"

ActiveDocument.SaveAs FileName:=sPath & ActiveDocument.Name

Flag = False

Application.Documents.Close

CommandButton1.Visible = False

End Sub

More replies
Relevance 100%
Preferred Solution: Word Macro to Save & Send Email - Need Help!!

I recommend downloading and running Reimage. It's a computer repair tool that has been proven to identify and fix many Windows problems with a high level of success.

I've used it in the past to identify and fix everything from blue screens (BSOD's), ActiveX errors, corrupt files and processes, dll/exe/sys errors, recover lost memory, Windows update problems, defragging, malware removal etc.

You can download it direct from this link http://downloadreimage.com/download.php. (This link will automatically start a download of Reimage that you can save to your computer.)

Relevance 93.89%

I have a word document that includes a form the user must fill in. I want to create a button that will do all of the following:
1. Update all fields
2. Attach the updated word document to an email
3. Enter an address I have stored in the macro into the To field of the email.

I have one module which does the first part:
Sub CommandButton1_Click()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
End Sub

I found that if I add this to the before End Sub it attaches the updated Word document to an email:
Application.Options.SendMailAttach = True 'Or False
ActiveDocument.SendMail

However, I can't figure out how have it put a specific address into the To field of the document.

So I tried another tact. I have the email address as a hyperlink in the document, and set a bookmark at the hyperlink. Then I created a module that will go to the bookmark and open the hyperlink. However, this will not add the document as an attachment:

Sub Open_Hyperlink()
Selection.GoTo What:=wdGoToBookmark, Name:="hyperlink"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With

Selection.Range.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

So then I found this bit of coding on the web, and tried imp... Read more

Answer:Word Macro to attach doc to email, then send address email

I found a solution, but I think it is a bit bulky. It seems to work but I'd love to know if there is a simpler solution:
Sub CommandButton1_Click()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing

ActiveDocument.Save

MsgBox "Thank you. Your order has been sent", vbOKOnly, "Thank you. Your order has been sent"
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then 'Document has not been saved
ActiveDocument.Save 'so save it
End If
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then 'Outlook isn't running
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.To = "[email protected]"
.Subject = "Promo Order" '
.Body = "Thank you for your order"
.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue
.Send
'**********************************

End With
If bStarted Then 'If the macro started Outlook, stop it again.
oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub
 

1 more replies
Relevance 75.03%

Hello,I got a macro online for sending emails given a condition. It works great if you have 1-2 entries that require email sending based on the condition set. But when it sends up to 10 mails daily to the same person it becomes kind of annoying.I will post the macro I use below, but first I want to say what I would like to do and don't know exactly how (I am a beginner at VBA language):--> I want to modify the macro so that for multiple entries as per the condition, it sends only 1 email with all the entries specified in body.The columns are:A - name of the person to send email toB+C - email and CC emailD - condition, if yes send email, if no don'tE - company nameF - current no.G - sector to be auditedH/I - date to begin / end auditJ/K - days left until beginning / end of the auditL - audit done: if yes, column D becomes no and greenAnd here is the macro I use:Sub audit()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "D").Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.CC = Cells(cell.Row, "C").Value
.BCC =... Read more

More replies
Relevance 73.8%

I work in an office with some "stupid" people so need to write a macro that will convert word (2003) .doc files to .pdf (Adobe Acrobat 6.0 Professional) when they go to save these important documents. Is this possible & how do i use the macro? I know it is possible to select it as a print option but they aren't able to
Any help would be more then welcome.
 

Answer:Macro to Save Word as PDF?

16 more replies
Relevance 73.39%

Hello all,I have used Excel for years, and run macros, but never written one myself. I have a spreadsheet of archived items that I need to review on a weekly basis to ensure boxes get sent back in a timely manner.The relevant columns are:Box number (an 8 digit number)Date recalledRecalled by (this will be a name)Date sent back (date - if not sent back, this will be empty)Review date (this will have a date 9 working days after the date the box was recalled)My ideal scenario is that I open the s/sheet each week, run my macro which will:Check the Date sent back box, if it is populated - nothing happensIf it is empty, the macro then checks the Review date box and if the present date is beyond the review date - the macro forms and email to be sent to the name in the Recalled by box stating: Subject: Box number: (it gets this from the Box number column)Please note this box was recalled on DD/MM/YY and is still in the office.Please advise if this can now be sent back - if not please respond accordingly.This is a big ask, I realise this - and I don't necessarily want someone to do this for me - I ideally want to understand how I do this, so that I can do it going forward myself.Any help would be greatly appreciated!ThanksEmily

Answer:Need Macro to Send email

I'm not an expert on macros by any means, but the few times I've done basic ones it's been okay after a bit of trial & error. There are a couple of good websites that give mini tutorials on how to create basic macros, these may be enough for your needs. Put 'writing excel macros' into Google & look at the first couple of hits. "I've always been mad, I know I've been mad, like the most of us..."

3 more replies
Relevance 72.98%

This is sort of relates to my other thread, but is for word this time so I figured it deserves its own thread.

I need a macro in MS Word, that will, before saves, update footer fields. This is mainly to automatically update the timestamp without having to go into print preview.

the update all keyboard command does not apply to headers / footers it seems.
I found a macro that will update all including headers and footers.

Sub UpdateAll()
Dim oStory As Range
Dim oField As Field
On Error Resume Next
For Each oStory In ActiveDocument.StoryRanges
For Each oField In oStory.Fields
oField.Update
Next oField
Next oStory
On Error GoTo 0
End Sub

I just need to a macro to launch the above macro before every save.

Thanks.
 

Answer:Solved: MS Word Macro - Before Save

16 more replies
Relevance 72.16%

Hi there,

I have a workbook which i would ideally like to send an automated mail when the date is within 30 days of "Todays date" .
I have found something similaar on past posts whichprints certain cells to an email but is triggered by a button press not date, but wondered if anyone could adjust it for me as my excel knowledge is very limited.
I really am struggling.

The password for the spreadsheet is Kalibratedbyme (capital K)

Best regards and many thanks!
 

Answer:macro to allow a date to send an email in excel

The content is different but why are you duplicating a post?
 

3 more replies
Relevance 71.75%

My sense is this is a pretty simple request, but I'm completely illiterate when it comes to VB.

I have an excel spreadsheet with a number of data points. I'm looking to export the entire sheet to a CSV file and send it via Outlook. Any suggestions?
 

More replies
Relevance 71.34%

I have searched the net but cannot find anything specifically what I'm trying to accomplish.

I have a timesheet, of sorts, that I added buttons to move around and I would like to add a button for the user to click and it will send the Excel spreadsheet to me when they're done entering their data. I can get the email to open a new email message with the file attached but I'm stuck on getting my name in the To field, as well as a subject and body. Then I would like for it to send and display a message that the email was sent.

I am using Office 2003

Any help would be appreciated.
 

Answer:Solved: Macro to Send Email with Spreadsheet as attachment

7 more replies
Relevance 71.34%

I found this code in this forum.
i want to add recipient as CC or BCC. What is the correct code for that?
Thanks in advance!

Code:
Public Sub email()

Dim SubJ, Recip As String

SubJ = "Enter your suject"
Recip = "[email protected]"


ThisWorkbook.SendMail Recip, SubJ

msgbox "Email Sent"

End Sub

 

Answer:Send excel sheet ( email) through macro with recipient and cc

6 more replies
Relevance 71.34%

Hi:
I am very new to Excel 2007 and macros. I have a spreadsheet that I am trying to get to send an email reminder to the point of contact [ col b ] 5 days prior to the closure document due NLT date [ col m ]. I am looking for assistance in writing a macro which will accomplish this if it is possible. I have attached the spreadsheet that I referenced.
Your assistance would be greatly appreciated.
Thanks in advance.

desantisj
 

Answer:Excel 2007 Macro to Send Reminder Email

desantisj, welcome to the Forum.
There are already 3 or 4 posts on this forum that have the VBA code (Macro) that you can modify for your Workbook if you can read the code. Zack has written the code so it is a bit complicated, but it should be a case of substituting your Cell references that hold the data for the ones that others have used.
Otherwise it is a case of waiting for an Excel guru to come along and help. If none of them come along I can probably help you, but I normally work with Access.
 

2 more replies
Relevance 70.52%

Hi guys,

I have a question that has stumped me so far. Here is the scenario: I am dealing with a spreadsheet that has several tabs on it. In each tab, there are several word, powerpoint, and pdf documents that are embedded as objects. My task is to write a macro, that will for each document (keep in mind its an embedded object that needs to be opened), open it with the appropriate program, and save it using a pre-assigned name (the name of the column heading and the row it is in) to a predetermined folder path. This process needs to be duplicated about 200 times. I'm not sure if this is even possible, but I know enough about vba to believe that it is. I've been working on it since yesterday, and I can't seem to tie the pieces together. Can anyone help on this?

Thanks!
 

More replies
Relevance 70.11%

I am using Win 8 and I can't remember now if this has started since going to Win 8 or if it worked OK for a while and is glitching now. (I am using 2010 and Outlook on Win 8)
 
If I prepare a Word or Excel document and want to send it on to someone I can no longer go to the File/Save and Send/Send as Attachment feature because if I do that then my machine says cannot send this message.
I then delete the attachment, click on Attach file, find the file, attach it in this way and boom...of it flies - kind of irritating.
 
Rather strange - anyone care to comment?
 
And I would really love it if, when this feature does work, such as when you send a picture straight out of My Pictures, it freezes you on that email so if you suddenly remember another file you want to add, or you decide you need to check something somewhere else before you hit go, the screen flashes at you (gives you the finger). So now you have to close/delete that message and start again (fortunately if you have added text you can highlight it before deleting, copy it and then, after closing the message you can paste the copy into word temporarily until you get a new message ready then copy/paste it back into your email.
 
I have not tried to send straight out of my pictures for a while - must check if that still works....it does!
 
Erik

Answer:Save and send Word & Excel

I have Office 2010 and Windows 8, I get the same error. I tried 6 Different repair options and so far none have worked.

1 more replies
Relevance 68.88%

Hi all,

This is my first venture into a forum so I will try to be detailed and concise! Here's the scenario:

Using Word 2007 I have a mail merged .docm file that includes two macros. The first is an AutoOpen macro that opens the "Find Entry" window, prompting the user to search for one recipient. The second macro sends the letter to the recipient via Outlook and prints the letter (to file the old fashioned way!).

I need to then save the file as a pdf, with the filename of "[Surname] [First Name] [todays date].pdf", which I am currently doing manually. I've tried, without success, to get a macro to input the [Surname] and [First Name] merge fields into the filename in the Save As window. I've also tried bookmarking the fields to reference those in VBA, but I'm now out of my depth!


So there are two things I would love assistance with if possible:

Firstly, solving the auto-filenaming issue to recognise the current entry in the [Surname] and [First Name] merge fields.

Secondly, also having the date in the filename in YY-MM-DD format, to give "[Surname] [First Name] [todays date].pdf" (my letter uses 02 November 2012 format)</SPAN></SPAN>


I'd then like to add this to the end of my macro, which I will include below. Many thanks for taking the time to read this, and even more thanks if you can assist!!


Sub SendAndPrint()
'
' SendAndPrint Macro
' Sends email to student email and prints
'
With ActiveDocument.MailMerge
.D... Read more

Answer:[SOLVED] Word macro to save .docm as pdf with specific filename of surname_&_date

Cross-posted at: Word macro to save .docm as pdf with specific filename of "surname"&"date"
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters

You probably need something like:

Code:
Sub SendAndPrint()
'
' SendAndPrint Macro
' Sends email to student email and prints
'
Dim strPath As String, strSName As String, strFName As String
strPath = ThisDocument.Path
With ThisDocument
strPath = .Path
With .MailMerge
.Destination = wdSendToEmail
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
strSName = .DataFields("Surname").Value
strFName = .DataFields("Firstname").Value
End With
.Execute Pause:=False
.Destination = wdSendToPrinter
.SuppressBlankLines = True
.Execute Pause:=False
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
.Execute Pause:=False
With ActiveDocument
.SaveAs FileName:=strPath & "\" & strSName & "_" & strFName & "_" & Format(Now, "YY-MM-DD") & ".pdf", _
Fileformat:=wdFormatPDF
.Close
End With
End With
End With
End Sub
PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

13 more replies
Relevance 67.65%

I have created an evaluation in MS Word and would like to include a checkbox at the end of the evaluation in which once clicked on (using a macro), the form is sent via outlook as an attachment to a specific email address. I have looked through tons of macros and VB scripts but cannot come up with exactly what I am looking for. I'm pretty sure this is an easy code to come up with, but I am not that strong in using VB. If anyone can help, please let me know!!!
 

More replies
Relevance 66.42%

If I open a doc and then press the "logo" jigger in the LH corner to open the menu, then send, email. Word freezes up and Outlook never opens. If I try to close Word I get error as attached. (Capture.png)

If I reboot when Word is forced to close, Outlook momentarily opens before shutdown.

If I ctl-alt-delete to open task manager and force Word to Close I get error as attached. (Capture.png)

If I try to send as PDF I get error as attached. (Capture2.png)

Any ideas?

Running Office 2007 Pro/W7 Pro x64

Answer:Cant send email from Word

Hello there richdave,

I'm curious....

*Have you a system restore point to a date prior to this happening?

*Have you tried Diagnose & Repair Office Problems?
Word > Office Button > Word Options > Resources > Run MS Office Diagnostics.

9 more replies
Relevance 65.6%

I have a user form that will be filled out and sent back to me...how would I create a button on that form that will

1. rename the doc
2. save it and attach as email to OutlookApplication and send to me?
 

Answer:Send Word Doc as Email Attachment

What is the form created in? Is it a form in a Word document?
 

2 more replies
Relevance 65.6%

When I start in Word or Excel (office xp pro) and hit
file, send to, send as an attachment the word email
editor will pop up with the word document as an
attachment (as it should). I then put the address I want
to send it to and hit the send button. The send button
greys while the mouse button is pushed (as it should) but
the message stays there. It does not send. I can hit the
button 7 million times and the email and attachment just
sit there.

Does anyone have any idea what may cause this?

Side notes: It doesn't mater if outlook is open or closed same effect either way. I can send attachment directly from outlook.
OS Win XP Pro. Network 2000 Server with 2000 exchange.
Newest Service Packs on all software from server to local
machine including office.
 

More replies
Relevance 65.19%

watch out for this new malware attack method by email
http://myonlinesecurity.co.uk/invoice-519658-colin-fox-pdf-malware/

This email contains a genuine PDF which has embedded scripts that will infect you. So far none of the automatic analysis tools can find any malicious content but it is trying to send multicast messages.

I am being told that this evil pdf when opened in adobe reader drops a word document containing macros, so DO NOT SAVE OR OPEN THIS PDF FILE: Just delete the email and any attachment as soon as it appears in your inbox. There appear to be several different versions of the PDF malware dropper although all are named the same and every copy that I have seen is the same file size ( 23kb) The malicious Macro inside the dropped word document ( VirusTotal) from one of the malicious PDFs downloads and executes -> hxxp://bepminhchi.com/83/61.exe ( virus total). There will almost certainly be different download locations depending on which version of the PDF you originally received.

Luckily enough Adobe reader in recent versions has Protected view automatically enabled and unless you press the button to enable all features, you will be safe from this attack
If you do enable all features, then you have a second chance to protect yourself, by pressing either cancel or never allow opening files of this type on the pop up warning. Pressing allow WILL almost certainly automatically open the word doc and run the malicious macro so infecting you. Make sure Adobe ... Read more

More replies
Relevance 64.78%

arial

Just installed MS XP Home replacing 98SE. Re-installed MS Word 2000. Previously I could send a Word doc as an email attachment. After installing XP and re-installing Word 2000 I can only send a doc as email not as an attachment. I've gone to Tools, Options, General and made sure the Attachment box is checked. I've done the Help and Repair. Must I uninstall and reinstall Word or is there something I'm missing? Many thanks. oldltc
 

Answer:MS Word 2000 can't send docs as email

8 more replies
Relevance 64.78%

Word 2007 needs IMAP facility..thunderbird does not seem to support it or incredimail ..anyone know of a good email program that supports IMAP..or at lest office 2007

Answer:Cant send email in Word..IMAP missing..?

Mozilla Thunderbird supports IMAP, as do all major email applications (Outlook, Windows Live Mail, Eudora, Pegasus etc).

Kari

4 more replies
Relevance 64.78%

I am a relative beginner who doesn't know much about operating systems. My computer is an HP presario and runs Windows XP. I have installed microsoft office 2003. I used to be able to send E-mails from there but now my send button is missing. Outlook won't allow me to send mail from anywhere else but Outlook itself and I can't even send a link from explorer. This is very annoying. I don't think I did anything to cause this but I could be wrong. HELP!!!
 

Answer:word 2003 Email send button

6 more replies
Relevance 64.78%

Hi can I save Email as a word doc and if so how please. I'm sure this must have been asked before ( I have tried to find in search area ) but it comes up no matchthanking you in advancePaul

Answer:Save Email as a word document

You can highlight it and file/save as and choose text file. Then right click the saved mail and open with Word if that's any use?

6 more replies
Relevance 64.37%

I am trying to send an attachment in my Yahoo email.   I keep getting this message below.  Does anyone know what this means and how to correct this?  My email cannot be sent for some reason.  I am using Windows 8.  I am sending an MS Word attachment that I uploaded using Yahoo's attachment facility.------------------------------------------------------------------------------------------------------------------------------- Unable to send message: If you are sending a link, try adding some text to it. This helps us fight spam.

Answer:Yahoo problem can't send email with Word attachment

Hi Nora10514 It could be a security feature put in place in Yahoo! Mail to protect users against malicious Word files (specially crafted). Did you try to archive the file (in a .zip) and then send it?

6 more replies
Relevance 64.37%

I want to send a Word97 document via Groupwise5 (in Word File, send to, recipient) and it won't let me. I keep getting an error "The form required to view this message cannot be displayed. Contact your administrator." I click on OK and then I get: "Word couldn't send mail because of MAPI failure: Unspecified error."

I think we used to be able to do this when we ran Word97 on Windows 95, but since we upgraded to Win 2K we can't seem to get the send to function to work properly. Our tech support people say "As of right now we can't do this on the Win 2000 computers. It has to do with the Mapi spooler. You will just need to attach the document in Groupwise."

Does this sound right to you? Will this problem be resolved once we upgrade to Office 2K?
 

Answer:Word 97: Send To Email Recipient, Win 2000 w/ Groupwise 5

I may be barking up the wrong tree here, but I think this is to do with Microsoft's latest attempts to protect us all from virus attacks.

In Windows 2000 (and Outlook 2000 with SP2) the approach taken is a 'total clampdown' on attachments which has a number of unwanted side affects. One of these side affects is to disable the ability to Send To another mail recipient from within your applications.

If this is the problem, then upgrading to office 2000 will not solve the problem and I'm not sure what will. I have seen people with fixes for NT when Office 2000 SP2 had been installed, but not for Win 2000.

If nothing else, I hope this provdes some clarification.

Good luck.

Michael Gurner
Brainbench MVP for MS Excel
http://www.brainbench.com
 

1 more replies
Relevance 64.37%

Hello everyone, I'm REALLY frustrated so bear with me.

I have Office 2007 Home & Student Edition. I use Windows Live Mail for my email client.

I installed the office product, and created a new Word Document.
I click on the Office Button on top, select SEND TO EMAIL.. expecting Windows Live Mail to show up (set as my default mail program.) Instead I get this error:

Logon Failed. You Must log on to Microsoft Exchange to Access your
address book. Error Code: "unspecified Error"

So I figure, Ok, maybe Office 2007 is new (even thought it's 2010 now), and there might be some fixes. I downloaded the SP2 for Office 2007, thinking this must be a common problem.. as my computer is BRAND new.... I JUST installed Windows Live Mail on it... and Just installed Office 2007. I haven't had it for more than a few hours.

I install the SP2 Patch for OFF2007 fine. Rebooted. Then tried again.
No Joy.
I do some searching and find many Microsoft threads which indicate how to "use a Non-MS Email client with Office 2007" - Now wait! Isn't Windows Live Mail an MS product?

So then, I find many other forums where they indicate you can click SEND TO EMAIL 3 times and it will work. So... Just to confirm the mind of the hive is alive and well.. I try it... Success! But, this does NOT solve the problem! I need this to WORK!

I even try with Send document as PDF and it still takes 3 times to work. WTH?
Why does it work on try # 3, and not on try # 1?

Has... Read more

Answer:Send To Email not working for WORD and Live Mail

  
Quote: Originally Posted by kattmarl


Hello everyone, I'm REALLY frustrated so bear with me.

I have Office 2007 Home & Student Edition. I use Windows Live Mail for my email client.

I installed the office product, and created a new Word Document.
I click on the Office Button on top, select SEND TO EMAIL.. expecting Windows Live Mail to show up (set as my default mail program.) Instead I get this error:

Logon Failed. You Must log on to Microsoft Exchange to Access your
address book. Error Code: "unspecified Error"



So I figure, Ok, maybe Office 2007 is new (even thought it's 2010 now), and there might be some fixes. I downloaded the SP2 for Office 2007, thinking this must be a common problem.. as my computer is BRAND new.... I JUST installed Windows Live Mail on it... and Just installed Office 2007. I haven't had it for more than a few hours.

I install the SP2 Patch for OFF2007 fine. Rebooted. Then tried again.
No Joy.


I do some searching and find many Microsoft threads which indicate how to "use a Non-MS Email client with Office 2007" - Now wait! Isn't Windows Live Mail an MS product?

So then, I find many other forums where they indicate you can click SEND TO EMAIL 3 times and it will work. So... Just to confirm the mind of the hive is alive and well.. I try it... Success! But, this does NOT solve the problem! I need this to WORK!

I even try with Send document as PDF and it still takes 3 times to... Read more

9 more replies
Relevance 64.37%

Whenever I send and receive emails that have ?word? documents attached, the documents often get corrupted in transmission. This shows itself as spaces between words disappearing. Only a few each time. For example a recent 20 000 + word document I?ve been working on, had about 30 ? 40 spaces lost. Any ideas what the issue could be?

Answer:Attached Word document changes When send or receive email

Possible solution here:https://answers.microsoft.com/en-us...MIKEhttp://www.skeptic.com/

4 more replies
Relevance 64.37%

I know this is probably a completely newbie question,I have read the tutorial but can not seem to make it work.I am working on a Windows XP Profesional 2002.I usually send messages directly from my mail server which is mail.com but I have a client that says he does not use Doral any more and that if I can put it into word and than email it he will be able to read my text.I sent photos which he was able to open but could not recieve the text of my email.I hope I have been as clear as possible.
Thanks to anyone who can help,
Tomjones

Answer:How do I move an email message to Word and then send it out to another person

Copy and Paste the text into Word. Save the word document. Add the word document to your e mail as an attachment.

1 more replies
Relevance 64.37%

Just put office 2010 onto new laptop with windows 10. use Hotmail in windows outlook for emails and cannot send emails direct from word

More replies
Relevance 64.37%

Since changing to Windows Live Mail from OE I am unable to send a Word Document in the main body of my email. This will only go as an attachment. If this is not possible is there another way as I don't want the document to be edited. I do not have PDF Writer.

Answer:Can't send a Word file in the main body of email

click here

4 more replies
Relevance 64.37%

Cant save important emails (at all).
Can?t copy/paste the TO, FROM, SUBJECT, DATE and TIME STAMP lines of the email to Microsoft Word document.

Issues commenced on 12-2-2013
1. When trying to ?save as? emails to my desktop or trying to save the email as a new file name in ?My Documents? folder, it appears to save the document. But when I try to open the ?save as? email doc on the desktop or in the folder, the home page for my entire inbox is displayed? If I try to open the saved document on the inbox page, it will default to ?re input password? to re open the email. Then it wraps around over and over. When logged into Firefox for my email account ? it does one other issue that it does not occur when going through Internet Explorer. When I go back to open the saved email to desktop I may get a momentary snapshot of the actual email I was saving but it will flash over to the inbox page. If I go back and try to reopen the email I will only get the inbox display from then on.
2. If I try to ?copy and paste? the email to a Microsoft Word doc the cursor will not copy the To, From, Subject line, Date and Time stamp. It will only copy the body of the email.
3. Starting 12/29/2013 ? previous emails that were saved in My Documents folder with previous saved dates (I&E August 2013) would display the email copied with the actual dates prior the problems of December 2013. Currently (as of today 12/30/2013) when opening these documents now have changed from being a copy of... Read more

Answer:cant save emails- cant copy email into word doc either

Hi old gaulfer, welcome to Seven Forums.
Here is my second attempt at doing what you want. Images can't be copy/pasted. WordPad.docx

4 more replies
Relevance 63.96%

Hello,

Thanks to several forum posts on these boards, I've been able to create a "Before Save" macro in word that enables me to run a macro when the user presses the save button.

In Module1 of the file

Code:
Dim X As New Class1
Public Sub Register_Event_Handler()
Set X.App = Word.Application
End Sub
In Class1 class modules of the file

Code:

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

Call MYMACRO

End Sub

The macro I call basically saves the file in its location, but also in other locations (as an html file on a webserver, and as a docx file on a separate drive).

This works perfectly.

However, when an autosave occurs every 10 minutes, the user gets this error message "saving the autorecovery file is postponed for ~WRA0000."

Is there a way to modify the VBA code so that it doesn't run on Autorecovery saves, or any solution that would prevent this error message from appearing?

I'm using Windows Vista pro with Word 2007.

Thanks!
 

Answer:"Before Save" Macro in word causes Autorecovery errors

Hi

I'm not sure if this will work, but it's worth a shot.
Code:
Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
App.DisplayAlerts=wdAlertsNone
Call MYMACRO
App.DisplayAlerts=wdAlertsAll
End Sub

Jimmy
 

2 more replies
Relevance 63.55%

Hello All

Looking for an explaination for this issue, client I support would like to send a word attachment via MS Outlook 03 but using the send to function in Word 2003 and selecting the mail recepient as attachment option, however the reciepients never get the email nor does it go into his sent folder. I have tested it and sent it to myself and have yet to receive anything. He does not get any error msgs, delivery failures etc... He can send the doc as an attachment by doing it the regular way through Outlook and it works and the msg goes to his sent folder.

Anyone come across this before?
 

More replies
Relevance 63.55%

I am trying to send email direct or as attachment direct from Windows Live Mail
direct from a Word 2007 home and student document.

I ?m using Windows 7 home premium 64 bit with Office 2007 home and student Word

I am not techy - does the word MAPI (not IMAP) mean anything in this situation.

Answer:send email in live mail direct from word 2007 doc

IMAP - Internet Message Access Protocol is one of the two most prevalent Internet standard protocols for e-mail retrieval. MAPI - Messaging Application Programming Interface is a messaging architecture and a component object model based application for Microsoft Windows which allows client programs to become email messaging-enabled or based. Here's more information on MAPI: Messaging Application Programming Interface

1 more replies
Relevance 63.55%

So I had prepared a document with graphics in MS Office Word, saved it, and then set about to send it via email. I clicked onto the email symbol, and got this error message instead;

"Logon failed. You must logon to Microsoft Exchange to access your address book.
Error Code "Unspecified Error".

Questions;

Where is the Microsoft Exchange, and how do I go about accessing it so that I can logon?Is there a link to MS Exchange in MS Office Word?It's nice of them to hold my address [contacts??] book, but I need to logon to use it too. How?Does anyone know how I get around this hiccup, or is this feature [email from MS Office Word 2007] limited to different versions of Vista/Office?

Answer:Failure - error trying to send email from MS Office Word 2007

Tony I'm curious,
Are you using Win Mail or Outlook as your default email client?
I note your question in this link
http://www.vistax64.com/windows-live...ame-email.html

If indeed it's Win Mail try this -
Control Panel. - Programs - Default Programs -set your default programs - wait for the list to populate - Windows Mail - set this program as default.

If I'm barking up the wrong tree you will no doubt tell me.

3 more replies
Relevance 63.55%

Hi all, I don't have Office 2013 yet but I am intending to upgrade a computer to Windows 8.1 Office 2013. One of the primary uses of this computer will be email and currently the fastest way to do things is to send email directly from Word. I have looked it up on the net and found a website that says that you can do this with Office 2013:
http://www.howtogeek.com/172420/how-to-send-a-word-document-as-the-body-of-an-email-message/
The only problem is that right at the end it also says:
“Note that there’s no real record of your sent email except as a Word document. If you want to keep a copy of the message for yourself in your email program (Outlook, Thunderbird, etc.), select Bcc from the Options drop-down menu (the same menu where you selected to add the From field) and enter your email address in the Bcc field.”
Unfortunately as these will be important emails I really need to know if they have been sent, without having to just trust the user to remember to save or Bcc it. So my question is: Is there a sure way to have email come up in the sent folder in Outlook when sent from Word 2013? If not I may not get Office 2013.
Thanks in advance for any help.
 

Answer:Can you send email form Word 2013 and see them in the sent folder in Outlook?

16 more replies
Relevance 62.73%

When I send an email that has a Word 2003 document attachment with a Table of Contents, the page numbers in the Table of Contents all change to the same number even though I have about 10 pages in the document. I am opening the document from within Outlook. Strangely I am able to Ctrl click on each 'same number' and link to the correct page. I'm using Outlook 2003 for email.

Note that I have refreshed the Table of Contents before sending the document.

Hope someone can help. I don't want to send out proposals with the Table of Contents looking so wrong.

Thanks for any assistance! spinningjennie
 

More replies
Relevance 62.32%

Also, skype has stopped working (won't load). I am using Windows 8.1 and this problem started suddenly today. I have done a virus scan which is clean. Have googled for answers but found none helpful. Also deleted onedrive, restarted but problem not solved. Also the same issue occurs when i open a programme (like ms word) in safe mode. Can anyone help?
Paula

More replies
Relevance 59.04%

Did not find answer when I searched.I have Windows XP Home Edition, SP2, and IE6, SP2.When I go to a web site and click on File, Send page by email or Send link by email, I get the message box entitled Enter Network Password, asking for user name and password.   How can I get it to go right to the Hot Mail message box so I can send?   In Tools, Internet Options, Programs, the Email section shows Hot Mail, so it should go right to Hot Mail.If I change the Internet Options, Programs, Email section to Yahoo Mail, instead of going to my Yahoo mail, I get a message box with the title Microsoft Exchange Setup Wizard, but it should take me to my Yahoo Mail.Anyone know how I can fix these two to work right?   Thanks much.Anna Ruth

Answer:File, send page by email, send link by email

Since you are using web client based e-mail it won't do this automatically...Copy and paste the links into Hotmail and it should work fine...

1 more replies
Relevance 58.63%

How do you keep a macro running until you reach the end of a page? Currently I just hold down the control or Alt keys. I have long documents so holding down the Alt + whatever key is not always practical.

Here is a sample macro. How do I make the macro run until the macro reaches (in this case) the top of the page?

I think the "do until" feature is used in the code but I do not know the syntax for "do until".

Code:
Sub DelimitBoldSentenceOnRightWithATab()
Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True
With Selection.Find
.Text = "*"
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.TypeText Text:=vbTab & vbTab
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=vbTab & vbTab
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.Find.ClearFormatting

End Sub

Thank you in advance for your replies.
 

Answer:Word Macro: How to keep macro running until end of page is reached

You can evaluate the current page number using the following property:

Selection.Information(wdActiveEndPageNumber)

Just use a loop and have it execute while Selection.Information(wdActiveEndPageNumber) = 1

Can you post your sample document?
Regards,
Rollin
 

2 more replies
Relevance 55.35%

Hello all,

I have been presented with a project that involves Forms that I am not able
to resolve.

Basically I have been asked to create a document template where other team
members can fill out a form that asks a series of questions, then to have
only the completed form results export to a new file.

I am aware that Word can export the form results to a text file, but when I
do this all of the questions that were on the original form are exported to
the new file.

What we are looking to achieve in the end:
If the end user is faced with 20 questions, but only 12 of the questions
pertain to the end users project, only the 12 completed form fields will
export to a new file.

I know that this should be possible with using a macro button to export the data, but that is where I need the help.

I tried searching for this exact situation, but I did not find any matches, hence the new thread.

Thank you in advance,

Bill
 

Answer:Macro help needed to export Word form results to a new file... Word/Excel

11 more replies
Relevance 55.35%

Hello,

I wonder if it's possible to make a macro that copies one spesific line / colum from every page in a word document into an excel sheet or new word document.

IE: every 5th and 10th line from one document into another.

-John
 

More replies
Relevance 55.35%

Hi,
Don't mind the curious ones, but I'm one of them. So anyway, almost one year ago now, the Word macro virus W97M/Marker.C was running rampant around Gordon College, with many teachers and students alike being infected. I was even infected with it thanks to one of my professors posting an assignment description document that had it. I was running AVG 9.0 at the time, and it was flagged many a time over. I think there were like six or so instances. My memory may be flaky, as my laptop has undergone many reformats since then, but what I do remember is trying to ignore AVG's warning, due to the fact that AVG has given me many false positives when I used it. The message Word gave me was that the document couldn't be opened because it wasn't available. But the strange part of that is that AVG had not removed anything from the file. I can think of two reasons why the file wouldn't run with the virus in it. Tell me which, if either, is correct. One is that Microsoft has since changed the macro format from 2003 and earlier versions of Word simply due to the many viruses that once existed for it, or two, that message was a very convoluted way of telling me that Windows 7 no longer supports Virtual device Drivers (*.vxd) as I was able to open the file after it had been cleaned up by Eset NOD32. Any knowledge you folks have would be very interesting, as I have always been curious about the very odd weekend of February 12, 2010. Now don't get me ... Read more

Answer:random curiosity about MS Word macro viruses and why (thank the Lord), they don't work in Word 2007/2010

I don't know the particulars of the macro virus you mention, but with Microsoft Office 2003, a significant change was implemented that effectively stopped the propagation of macro viruses.

Prior to Office 2003, macros were enabled by default, and opening a document with macros and auto-execute meant the macros were automatically executed (and thus the virus could infect and propagate).

With Office 2003, macro security was introduced. With a Microsoft Office 2003 default install, macros need to be signed with a certificate issued by a trusted root CA. Macros that are not signed will not be executed. Users have to explicitly lower the macro security level for unsigned macros to execute. Almost all macro viruses were unsigned.

3 more replies
Relevance 54.53%

One of my user is having this problem on her Windows XP PC:

Dell GX260 with Windows XP Professional running 512MB RAM, Office XP, Acrobat 5.0

When opening a Word file & edited in Word XP, the user cannot SAVE or use SAVE AS the file, when try to exit out the file, get prompt to either SAVE, CLOSE, or CANCEL the file, at that point it will still not save the file, the only way to exit the file is to hit CLOSE to exit.

I initially thought this might be a Word Xp problem, so I ran the repair tool in Office XP, that did not fix it.

I then uninstalled Office XP, reinstalled Office XP, but that also did not fix the problem.

I then ran the Office update to download the latest patches from MicroSoft, but that also did not fix the problem.

I then UNINSTALLED Acrobat 5.0 from the PC, that FIXED the problem.

WITHOUT Acrobat 5.0 on her PC, the user was now able to open & edit a Word file, and able to SAVE the edited file, also able use SAVE AS to save the file as a new copy.

I then reinstalled Acrobat 5.0 thinking the previous copy of Acrobat 5.0 on the PC might be corrupted, as soon as Acrobat 5.0 was back on the PC, the same problem with the SAVE feature came back in Word XP.

I then installed the patch update for Acrobat 5.0, that did not fix the problem.

At this point, I am out of clues on how to fix it....The user tried Acrobat 6.0 before on the same PC, but decided to reverse back to Acrobat 5.0 because of format problem with 6.0.......so Acrobat 6.0 is no... Read more

Answer:Unable to Save/Save As/close Word XP file with Acrobat 5.0 installed

6 more replies
Relevance 54.53%

I have a Word database file that is 16 columns wide and several hundred rows long.

With the database open:

1. My macro opens a new document (Which I’ll call the “Working Doc”)
2. Activates the database file
3. Captures the information from all the cells in row 1
4. Activates the Working Doc
5. Inserts a Word file at the end of the document based on the information in one of the cells. This file is composed of a couple of paragraphs and a table
6. Inserts the information gathered from the database file into the table
7. Activates the database file
8. Captures the information from all the cells in row 2
9. Activates the Working Doc
10. Inserts a different Word file at the end of the document based on the information in one of the cells. This file is also composed of a couple of paragraphs and a table. All of the inserted files are a couple of paragraphs and a table
11. Inserts the information gathered from the database file into the table
12. And so on until the end of the database is reached.

I have been using this macro for several months with no problems when the database table was only a couple of hundred rows. The database table for the last couple of projects has been several hundred rows instead of a couple of hundred rows.

When I run the macro with the large database, it goes through about ¾ of the database, starts to really slow down and eventually freezes Word.

I can split the database in half and run the macro twice and then paste the 2 documents together bu... Read more

Answer:Word 2002 long macro freeses Word.

It's a very interesting idea to use Word for database handling. It's like trying to hit a nail with a knife.
You can do it, of course, but there are real "hammers" (e.g. Excel or Access) available for this kind of task.

Jimmy
 

1 more replies
Relevance 54.53%

Hi
I had a macro running in Word 2007, which simply removed paragraph breaks and replaced them with spaces. It did this for the selected text, and then asked whether the user wanted to continue with the rest of the document. To this I mostly selected NO.
In 2010 the macro replaces throughout the whole document without any prompts. I checked the macro on a Word 2007 machine and the code is the same as the new macro in Word 2010.
Can anyone suggest how to overcome this bug in 2010?
Thanks, Garry

The macro code is below:
Sub RemoveParas()
'
' RemoveParas Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 

More replies
Relevance 54.53%

I searched all over the web and micorsoft's web site. I tried every suggestion made such as:

Disconnect net work drives.
Rename Normal.dotm
Run office diagnostics
Disconnect HP Printers
Finally this worked:

http://support.microsoft.com/kb/940791

and run Mr. Fixit.

I hope this saves you some time. I spent over 2 hours.
 

More replies
Relevance 53.71%

how do i modify sidebar word 2010 save as save in ?

i am running window 7

thank you

Answer:how do i modify sidebar word 2010 save as save in

Hello mri1397, welcome to Seven Forums.

Sorry, but I am not sure what you mean.
Could you explain further - perhaps with a picture to illustrate.

2 more replies
Relevance 53.71%

Hello, I'm just joined and am trying to create a macro that will automatically email an entire workbook to a list of individuals. I also want the macro to copy and paste a range of cells within a specific sheet in the workbook and paste it into the body of the email. I am able to email the workbook but can't figure out the second part. Any help would be appreciated.

I am using Excell 2007 and LotusNotes 8.5.1
 

Answer:Macro to email centain range in body of email as well as the whole workbook

Hi, welcome to the forum.
There are several posts where I added some simple tips and tricks.
Do you have the macro you use now to mail the whole workbook?
If I see how you have done this then maybe it's a cinch to add the extra info
You may also post a workbook with fictious data if you wish
 

1 more replies
Relevance 53.3%

Hi,

I recently got some dictionary software that came with a Word macro component. The software's quite old (it's the latest release - they don't make it anymore) and everything seems to install Ok, but when I try and run the Word Macro, I get a message saying that my Word version (2002 XP - I recently upgraded) can't run or convert the Word 2000 macro. (I think it's being a bit generous - the dictionary software was made in 1994 - more like Word 6 vintage)

There is a Word file on the dictionary software disk that seems to install the macro and toolbar button etc.

Is there something I can do to make the macro work?

Thanks

David

PS I'm not really up on my macro stuff, so please use simple language.
 

Answer:Running an old Word Macro in Word 2002 XP

Would have to see the code, David. If it's very long, can you copy it out of the VB Editor window and paste it into Word and save as text and attach it here? Our web won't accept regular Word docs.
 

3 more replies
Relevance 53.3%

I have a Nokia Lumia 521 windows phone running windows 8.1 on which I have a few separate email accounts to manage. I am repeatedly receiving send error messages when using a non-gmail account, (outlook.com, mail.com). I've tried re-starting the phone, cleaning the cache, deleting messages from folders, but the results, if any are short-lived and unsatisfactory. Any suggestions or a fix would be welcome. Software version is Lumia Cyan
Phillip in CO

More replies
Relevance 53.3%

Tech Support Guy System Info Utility version 1.0.0.4
OS Version: Microsoft Windows 10 Home, 64 bit
Processor: Intel(R) Core(TM) i5-2410M CPU @ 2.30GHz, Intel64 Family 6 Model 42 Stepping 7
Processor Count: 4
RAM: 4010 Mb
Graphics Card: Intel(R) HD Graphics 3000, 1813 Mb
Hard Drives: C: 582 GB (515 GB Free); D: 13 GB (7 GB Free);
Motherboard: Dell Inc.,
Antivirus: Windows Defender, Enabled and Updated
Somehow I again lost the SEND button but I pressed ALT+V, Toolbars, etc. and, SEND LATER, displayed. How do I change it to just, SEND? I have a few emails that I would like to send now. Thanks, John
 

More replies
Relevance 52.89%

Dell Inspiron 1100, P4, 2GHz running MS Office XP ProI can't [highlight]save[/highlight] or [highlight]save as [/highlight]any MS Word or Excel file on this laptop. Problem started 3 days ago. When I try either of these functions, the cursor turns to hourglass, but then nothing happens. No other keys or functions will work. When I then try to kill the file (X upper right) I get a notification that "This program is not responding."I have done soft and hard re-boots; no help. I have done Norton full system scan; no infection.I have made no changes or additions to the laptop.Any ideas?

Answer:Suddenly can't <save> or <save as> MS Word files

You ran a Norton AntiVrius scan, but what about Spyware? Do you have the install CD for word and Excel so you can just reinstall files?Flame

1 more replies
Relevance 52.89%

I have a Toshiba A55 laptop. I am running XP Home SP2 and Office Professional 2003 SP2. All utilites function normally with the exception of Word. The file menu shows "save" and "save as" to be disabled (greyed out). It will save with control-S, and I am able to save to any location I want. I am not receiving any error messages. All updates for XP and Office are current. No viruses or other malware. I have seen issues with Ofice SP2 concerning HP systems but they usually either lock up or generate errors. I do not have either of these problems. I have been looking for a solution for a few days to no avail. Any suggestions would be helpful.
 

Answer:Word 2003 save/save as disabled

I found my own solution. Apparently, the normal.dot template became corrupted. Deleted the file, and did not let word reload the saved version, creating a new one. Fixed the problem. Wanted to post in case someone else was dealing with the same issue.
 

2 more replies
Relevance 52.89%

When I do a save as or save, MS Word 2016, Version 1704 Build 8067.2157 becomes non responsive. No matter what the destination is, usually documents, it just crashes. Task manager to get out of it. Searched for problem on the internet, tried most if not all of the suggestions same result. Tried the Office repair, same problem. Appreciate any suggestions.

UPDATE: Now all programs in office have the same "save to" crash.

More replies
Relevance 52.89%

Excel MacrosI am trying to create a macro for Excel 2010 that will save each Excel worksheet, within a workbook, to be save as a PDF and the file name be the tab name. Does anyone know if this is possible? Thanks

Answer:Macro Code, save as PDF

This seemed to work.Some notes:- You'll have to change the path to match where you want the PDF's saved.- You can change OpenAfterPublish:=True to False if you don't want to see each PDF after it's created.- The code will overwrite a file with the same name without asking.You have been warned! ;-)Sub CreatePDF()
For sh = 1 To Sheets.Count
Sheets(sh).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\username\Desktop\" & Sheets(sh).Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End SubClick Here Before Posting Data or VBA Code ---> How To Post Data or Code.

10 more replies
Relevance 52.89%

Hello, I'm still learning this Excel stuff. I can make a macro to save it as a PDF by saying its filename is "invoice 1" but everytime I click my macro button, it always overwrites it. (Maybe because its just a simple saving macro i guess). But is there a way around this overwriting? Please could anybody give me a step by step? Most grateful thankyou. Nathan.

Answer:Macro: Different PDF file name on each save

You can use Application.InputBox to have the macro ask you for the name each time:
Sub SaveAsPDF()
MyFilename = Application.InputBox("Enter Filename")
If MyFilename = False Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="Z:\Your_Real_Path\" & MyFilename & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End SubIf you will always be saving this file as a PDF, you can use the BeforeSave event to run the code whenever you save the file, without using your macro button.In the VBE, double-click on the ThisWorkbook Module.Use the pull down next to General and choose Workbook.Use the pull down to the right and choose BeforeSave.Use the instructions from above to get this:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MyFilename = Application.InputBox("Enter Filename")
If MyFilename = False Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="Z:\Your_Real_Path\" & MyFilename & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End SubClick Here Before Posting Data or VBA Code ---> How To Post Data or Code.

2 more replies
Relevance 52.89%

This is a very simple things for experts, but because I am a beginner its difficult for me to do this simple thing.
Below is the macro I've written. What I want is:
1) FileToOpen
Instead of using the fixed file "Pay Deduction Run 1812.xls" , I want my macro to ask user to select their own file so that they can use different Pay Deduction Runs.

2) SaveAs
Instead of saving the file as "Z:\FINANCE\GERARD\EXCEL\2009 Reconciliations\Payroll\Pay Deductions JNL\PY 1812.xls" , I want my macro to save the file automatically in the same path but with corresponding payrun number that was opened by user in step 1 e.g PY 1814, PY 1815, PY1815, etc...

I will be very thankful if somebody could edit my macro.
Sub PayDed()

Workbooks.Open Filename:= _
"Z:\FINANCE\PAYROLL\Ryde Deductions\Pay Deduction Run 1812.xls"
Columns("A:E").Select
Selection.Copy
Windows("Pay Deduction.xls").Activate
Sheets("Paste Here").Select
Columns("A:E").Select
ActiveSheet.Paste
Sheets("Journal").Select
Application.CutCopyMode = False
Sheets("Journal").Copy
Cells.Select
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Unprotect
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"Z:\FINANCE\GERARD\EXCEL\2009 Reconciliations\Payroll\Pay Deductions JNL\PY 1812.xls"
Active... Read more

Answer:Macro Help for FileToOpen ---->> Save As

7 more replies
Relevance 52.89%

I am using a VB macro to save a list with 3 columns from excel to .csv file using the following code:

Application.ActiveWorkbook.SaveAs "filename", FileFormat:=xlCSV, local:=True

The last column may or may not contain a number. The last list separator ; appear in a irregular way. Sometimes it is missing, the error always start on a row that is a multiple of 16 (in the list below on row 64) and the error continues for 16 rows before the ending list seperator appears again. On what multiple of 16 the error uccurs is different depending on the list.

Anyone familiar with this problem or know why it appears?
The error is the same if I save it in .txt format

Line;Item Number;Quantity;Length
1;ITEM NUMBER 1;3;
2;ITEM NUMBER 2;10;
3;ITEM NUMBER 3;2;
4;ITEM NUMBER 4;1;54
5;ITEM NUMBER 5;1;561
6;ITEM NUMBER 6;1;56
7;ITEM NUMBER 7;29;
8;ITEM NUMBER 8;11;
9;ITEM NUMBER 9;2;3
10;ITEM NUMBER 10;2;
11;ITEM NUMBER 11;1;
12;ITEM NUMBER 12;1;
13;ITEM NUMBER 13;1;
14;ITEM NUMBER 14;6;
15;ITEM NUMBER 15;200;
16;ITEM NUMBER 16;56;
17;ITEM NUMBER 17;1;
18;ITEM NUMBER 18;1;
19;ITEM NUMBER 19;1;231
20;ITEM NUMBER 20;1;
21;ITEM NUMBER 21;2;
22;ITEM NUMBER 22;2;
23;ITEM NUMBER 23;1;
24;ITEM NUMBER 24;1;
25;ITEM NUMBER 25;2;23
26;ITEM NUMBER 26;1;1
27;ITEM NUMBER 27;4;
28;ITEM NUMBER 28;1;
29;ITEM NUMBER 29;1;
30;ITEM NUMBER 30;1;
31;ITEM NUMBER 31;3;231
32;ITEM NUMBER 32;3;
33;ITEM NUMBER 33;9;
34;ITEM NUMBER 34;3;
35;ITEM NUMBER 35;4;
36;ITEM NUMBER 36;2;213
37;ITEM NUMBER 37;2;3
38... Read more

More replies
Relevance 52.07%

Dear Guyz

I have a macro helped and developed by a respected admin of this group

it has following statement

If Cells(lRow, "N").Value >= 5 And Len(Trim(Cells(lRow, "P").Value)) > 0 Then ' check if the months passed are >= 5 (same as the red conditional formatting)
If Len(Trim(Cells(lRow, "O").Value)) = 0 Or (IsDate(Cells(lRow, "O").Value) = True And Month(Cells(lRow, "O").Value) <> Month(Date)) Then
toList = Cells(lRow, "P") 'gets the recipient's email address Column O

I want to add another line from another macro

If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then

which makes sure that only @ emails are there and also ensures to which person it has to email and which it has avoid.

Can anybody help me to sort out this especially @Keebellah
 

Answer:Yes for Email No for no Email Condition in an if Statement of macro

7 more replies
Relevance 52.07%

How to create MS Excel 2007 macro which every time the file is launched, it will prompt the user to ?Save as"?So that the file will not be overwritten.Help me with the macro, please!

Answer:Creating Macro to Prompt for Save As

This code is adapted from the example given in the VBA Help files for the GetSaveAsFilename amd SaveAs methods.I put it inside the Workbook_Open event so that the Save As dialog box opens whenever the workbook is opened.As written, it does not prevent the user from canceling the Save As, so that would have to be added if needed.1 - Use Alt-F11 to open the VBA editor.2 - Double-click the ThisWorkbook entry under the VBA Project list.3 - Paste the following code into the pane that opens and save the file.Private Sub Workbook_Open()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Workbooks (*.xls), *.xls")
If fileSaveName <> False Then
Me.SaveAs Filename:=fileSaveName
End If
End Sub

2 more replies
Relevance 52.07%

Appreciate a little help for a macro novice. Simple macro.
Sheets("SPA").Select
Sheets("SPA").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\me\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\me\Desktop\SPA.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.WindowState = xlMinimized
Windows("PC 2011 Oct master.xls").Activate
End Sub

What and where do I enter a routine to prompt for the save file name. Presently it always save as SPA.xls I would like to be prompted to enter the name. I've seen threads on this but can't get it right. I need someone to say exactly where and what to enter.

Thank you in advance.
 

Answer:Excel Macro how to prompt for save name

After this line:
ChDir "C:\Documents and Settings\me\Desktop"

Add the following:

fileName = Application.GetSaveAsFilename
If filename <> False Then

' the name of the file chosen by the user will be stored in fileName
<put your code to save the file here>

End If


Don't forget to add this line at the top of the macro:
Dim fileName as Variant

Hope this helps.

Rajeev
 

3 more replies
Relevance 52.07%

Sub Macro7()'' Macro7 Macro'' Sheets("Form 16").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Rajesh\Desktop\Form 16 FY 2013 - 2014 Testing 1.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=TrueEnd Subi required to save the pdf file with the specific cell like (A21), i:e A21 text will be the my pdf file name , please helpmessage edited by Rajeshindium

Answer:how to Save As Pdf & Name From Cell with macro code

First, a posting tip... if you click on the blue line at the bottom of this post, you can read the instructions on how to post VBA code in this forum so that the format is retained. As for your question, try the following code.Note: I am assuming that A21 does not contain the .pdf extension. If it does, you should be able to see how the file name was built by the code and modify it to work.
Sub SaveAsPDF()
Dim Fname As String
myFname = Sheets("Form 16").Range("A21")
Sheets("Form 16").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Rajesh\Desktop\" & myFname & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End SubClick Here Before Posting Data or VBA Code ---> How To Post Data or Code.

3 more replies
Relevance 52.07%

Hi Everyone,
Iam new to this forum as well as excel. I saw a file before that had a button "Save Data" and it will save the data I wish to be saved in another worksheet and it will go down one row automatically for the next set. Somehow i managed to create a excel file with the fileds i need to input. However i am not able to complete it without the macros. Hope some one could complete this and send me the file ( i dont't know even a bit about excel ).
 

Answer:Macro to save data to another sheet

16 more replies
Relevance 52.07%

Hi,I have 2 excel files:1.excel statement that has to be saved.2.excel database abc.xls which contains the client name, saving drive path and the name the file has to be saved.(this file contains column a: client name, b:file path c:file name to be saved)I want the macro to capture the active cell data from the statement and find the data in the database file, and if found save the file in the file name defined in column C and the given path specified in Column B. If the name not found then pop-up msg "name not found". The file should save in xls and pdf format.Please note I have 80-100 statements for diff clients and the same details are updated in the database file.Let me know if u any further information.Thanks in advance for your help.Santhosh

Answer:Macro to save a file in excel and pdf

re: The file should save in xls and pdf format.How are you saving files in PDF format?.pdf is not one of the default filetypes available in the "Save as type" list.pdf's can be created with a number of different pdf creation utilities so knowing how you are doing it would be helpful when writing code.

3 more replies
Relevance 52.07%

I have a macro that saves my 40 page workbook to a PDF. The problem is that it places blank pages between each worksheet in the PDF.

Is there a way to stop the blank pages from occurring?

Here is the code I am using:
Code:

ThisFile = "C:\" & Replace(ActiveWorkbook.Name, ".xls", "") & ".pdf"

ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False


 

Answer:Solved: Excel Macro -> Save As PDF

I found the answer on Adobe's website. The site indicated that the blank pages were a result of all the sheets having a different print quality.

Once I changed all the sheets to have the same print quality, the blank pages did not appear in the PDF.
 

1 more replies
Relevance 52.07%

I will pay a fee if needed just to get the answer.
I have a file containing approx 50 docs. Some are password protected, some are not. I need a macro that will open each doc (unprotecting those files that need a password), insert the text "second request" along with the current date (using Arial 12 pt bold font) under my header and centered. Lastly, I need it to save, reprotect the docs, and convert into pdf.

Is this possible? Please help me.
 

Answer:Macro to insert text and save as PDF

Hi Shanna, welcome to PCR! Which Office app is this for please?
 

7 more replies
Relevance 52.07%

I am trying to automate a spreadsheet that all our employees must update each day.

I would like the file to close after a set period of time (1 Minute)
 

Answer:Save and Exit by Macro in Excel

I've always steered clear of this as I've heard it's a killer on resources. Plus I wouldn't know where to begin.

So here is some code from the outstanding Tom Ogilvy to get you (or it) started -

Public NextTime As Date
Public EndTime As Date
Sub StartCount()
EndTime = Now + TimeValue("00:01:00")
NextTime = Now + TimeValue("00:00:01")
ActiveSheet.Range("A1").NumberFormat = "hh:mm:ss"
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub

Sub Continuecount()
NextTime = Now + TimeValue("00:00:01")
If EndTime - Now < 0 Then Exit Sub
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub
 

3 more replies
Relevance 52.07%

I have a worksheet that I want to concurrently print a hard copy and save to a .pdf file in a folder on my computer. The worksheet that I want to print and save to .pdf is not the active worksheet.I would like for the worksheet to be saved to .pdf with a unique file name. The worksheets saved as .pdfs will be archived, and it's important that they are not written over.Could someone help me with the VBA code to do so? Thank you for any help you can be.Sincerely,Mark1011

Answer:I want to use a macro to save an Excel worksheet to a .pdf.

Try here:http://www.rondebruin.nl/pdf.htmMIKEhttp://www.skeptic.com/

5 more replies
Relevance 52.07%

Hi,

I am trying to write a macro that will open a workbook and save it as a new file name. I need to do this 150 times, so I would like to be able to write something in the macro that will save the workbook as mulitple unique files. can this be done?

thank for your help
Nicky
 

Answer:Macro to Save as mulitple workbooks

6 more replies
Relevance 52.07%

How to save defferent file names need macro....

Answer:macro code for save diferent name

Ok so write the macro then.!!! ORBe more precise with your 'question' and we can try to help you...

2 more replies
Relevance 52.07%

I want to be able to save a paragraph that I use often somewhere that I can get to it easily. Is there a way to permanently save something to the clipboard, or a way to do a macro so all I have to do is hit a key and that paragraph will be pasted anywhere I want? Thanks!
 

Answer:Permanent Save to Clipboard OR Macro

Hi,
I've been using this free prog to do what you're looking to do:

http://www.phraseexpress.com/

Hope this helps?
Richard
 

3 more replies
Relevance 52.07%

Hello, I need to save diffrent worksheets with the tag "save" in cell A1 to a PDF file with a macrobutton.I Find this 2 code, Please could anyone help me to combine this two codes, or is there any other solution?[I need the fucntion that says, just youse thw worksheets with "save" in A1, and combine it with the seconde code that print PDF]--code 1---Sub Test5()Dim sht As WorksheetFor Each sht In ThisWorkbook.Worksheets If sht.Range("save").Value <> "" Then sht.PrintOut End IfNext shtEnd Sub--code 2---Sub Save_as_pdf()Dim FSO As ObjectDim s(1) As StringDim sNewFilePath As String Set FSO = CreateObject("Scripting.FileSystemObject") s(0) = ThisWorkbook.FullName If FSO.FileExists(s(0)) Then '//Change Excel Extension to PDF extension in FilePath s(1) = FSO.GetExtensionName(s(0)) If s(1) <> "" Then s(1) = "." & s(1) sNewFilePath = Replace(s(0), s(1), ".pdf") '//Export to PDF with new File Path ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=sNewFilePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Else '//Error: file path not found MsgBox "Error: this workbook may be unsaved. Please save and try again." End If Set FSO = NothingEnd Sub----Please help me :)

Answer:Save excel worksheets to PDF with macro?

I found this code, and it works, BUT I want to create a PDF file with more than one worksheet...Sub pdfsave()pdfname = Range("A1").ValueActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, Quality:=xlQualityStandard, _IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _TrueEnd Sub

2 more replies
Relevance 51.66%

I use this VBA code in a Excel Macro to send a email. Actually i send a range of cell pasted in the mail but i can´t send the file (it´s was created in the same macro) attached.
Can you help me?

I send the code. How can i do for send the Prueba.doc file attached.

Sub Envia_CVP_LOTUS()

oldStatusBar = Application.DisplayStatusBar

Dim NSession As Object
Dim NDatabase As Object
Dim NUIWorkSpace As Object
Dim NDoc As Object
Dim NUIdoc As Object
Dim WordApp As Object
Dim WordDoc As Object
Dim EmbedObj As Object

Application.DisplayStatusBar = True
Application.StatusBar = "Creando el correo..."

Set NSession = CreateObject("Notes.NotesSession")
Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
Set NDatabase = NSession.GetDatabase("", "")

If Not NDatabase.IsOpen Then
NDatabase.OpenMail
End If
'Create a new document

Set NDoc = NDatabase.CreateDocument

With NDoc
.SendTo = "[email protected]"
.CopyTo = ""
.Subject = "Previsión Marginal de GN para el " & Date + 1

'Email body text, including marker text which will be replaced by the Excel cells

.body = "Envío la previsión de máquinas Marginales de GN y Combustible Alternativo para el día de mañana." & vbNewLine & vbNewLine & "Donde CVP USD = CVP / ( Fn x Cotización U$S)" & vbNewLine & _
"**PASTE EXCEL CELLS HERE**" & vbNewLine & vbNewLine & &qu... Read more

More replies
Relevance 51.66%

ok, this code below is working but it does not show a pop up from outlook instead it sends the mail automatically.

I want to have a pop up as a new email message with the to list populated from the query when i click the button on the form. anyone can help?
Code:
Code:
Dim MyDb As DAO.Database
Dim rsEmail As DAO.Recordset
Dim strEmailAddress

Set MyDb = CurrentDb()
Set rsEmail = MyDb.OpenRecordset("Query Full Director", dbOpenSnapshot)

Do Until rsEmail.EOF
strEmailAddress = strEmailAddress & rsEmail("Email") & ";"
rsEmail.MoveNext
Loop

strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)

DoCmd.SendObject , , acFormatRTF, strEmailAddress, _
, , strSubject, strEMailMsg, False, False

rsEmail.Close
Set rst = Nothing
 

Answer:Solved: Email Button to send email in a form access 2010

7 more replies
Relevance 51.66%

I am running Vista and Word 2007. I would like to save the document as a Word 2003 document so it can be opened in older versions of Word. I use "save as" and select Save as Word 97-2003, but when I try to open this document on an older machine "Windows XP and Word 2003" it opens with a lots of symbols and then the text is jumbled into one continuous paragraph.

I know there is a complatibility pack that can be downloaded for Word 2003 that will allow users to open Word 2007 documents, but I would still like to be able to "save as" Word 97-2003 so people without this compatability pack can still open this document.

Any help?

Thanks,
Danny
 

Answer:Word 2007 Save As Word 2003 not working

I had almost the same problem. It seems that the save as option is 2007 does not work properly, I would rather download the compatability packet.
 

1 more replies
Relevance 51.66%

Hi and thanks in advance for any help you can provide. I have a spreadsheet that currently populates data in column (AG) if the IF statements are true. Could be as few as 2-3 rows and up to as much as 4000 rows. I would like help in creating a button activated macro that can find all cells within the (AG) column that contains any data and then save that to a Text (Tab Delimited) file with the information separated by a pipe "|".Ex:"entry1"|"entry2"|"entry3"| etc....Some additional requests would be to automatically save the tab delimited file to be what the original excel document name is then append it with the current date.Ex: original excel spreadsheet name is "Expenses.xls"Automatically saves it as "Expenses_YYYYMMDD.txt" with the abiliity to save the file to a local disk or file share. Thanks again!DCMan

Answer:macro 2 save all cells w/data 2 TabDelimited

then save that to a Text (Tab Delimited) file with the information separated by a pipe "|".One of us is confused, but I'm pretty sure a "tab" is not a "pipe."How To Ask Questions The Smart Way

2 more replies
Relevance 51.66%

I need some help with a macro. I need to save data from certain cells in 1 worksheet and to another worksheet. Details belowI want to grab the data in worksheet "survey" from cells A3, A4 and A6 and save them to worksheet "data" in cells A2, B2 and C2. After the save is done I then want to clear the data from cells A3, A6. I created an object button in my workbook that is clickable. I just need to assign a macro to it. I have been working on this for over a week and I am new to macros so it is a struggle. I have even went as far as purchasing a program call teachmemirosoftoffice and still can't figure out the whole thing. I get portions of it to work but not all of it. I would greatly appreciate anyone who can help me write this macro. I would forever be indebt to you my friend. Thanks.

Answer:Need a macro for excel 2007 to save data

Since you do not appear to have a contiguous range of cells in your source document, you have to do each cell individually. A contiguous range could have been copied and pasted Transposed into your destination, but since you skipped A5, you can't use that method.Try this:Sub CopyThenClear() Sheets("data").Range("A2") = Sheets("survey").Range("A3") Sheets("data").Range("B2") = Sheets("survey").Range("A4") Sheets("data").Range("C2") = Sheets("survey").Range("A6") Sheets("survey").Range("A3, A6").ClearContentsEnd Subre: "I would forever be in debt to you "Forever is a long time to be indebted for a few lines of VBA code. A simple thanks and a promise to pass it forward will suffice.Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

6 more replies
Relevance 51.66%

Good Evening,

I am trying to save a workbook using a macro, but I can not get it to save in a folder called Sugar_cookies. It just saves in the specified drive. Any idea what I do wrong?

ActiveWorkbook.SaveAs Filename:= "N:\Sugar_cookies" & DateDay & addinfo

Thank you,
codedreamer
 

Answer:How to save excel in a specific folder using a macro

6 more replies
Relevance 51.66%

I have a workbook that has 30 worksheets inside it. I need to be able to save each worksheet as an excel file with the tab name being the file name. I have been able to save them to PDF files but I can't seem to get it to work for the excel side. Thanks

Answer:Macro Code, Save as Excel Document

I image it'd be something like this:Dim s As Variant
For Each s In ActiveWorkbook.Sheets
s.SaveAs s.Name, ActiveWorkbook.FileFormat
Next 'sHow To Ask Questions The Smart Way

3 more replies
Relevance 51.66%

When you visit a web page you can click on view, source, save as text and you can save the html as a text file on your hard drive. Is there any way to do this in some kind of batch program so I can save 100 or more html files as text at a time?
 

Answer:Is There A Tool Or Macro To Save HTML As Text

HTML files are, by nature, text files.
You are not stating where these files are at, and what kind of access you have and what kind of protocol(s) you can use to get at them.

I assume you want to use the http protocol to snag them off of a network somewhere.
If so, take a look at wget. I think it will do what you want.

-Ken
 

1 more replies
Relevance 51.66%

Hi,I have less than 700 branches in numeric code listed in drop down list. It is placed in cell F1. I would like to save it independently in pdf file using macro.Thanks guys for the help!

Answer:Macro to save multiple files independently in pdf.

What does this mean?Don't forget we have no idea what your workbook looks like, nor do we know what you do and what your data means. So telling us you have branches in a drop down means nothing. My assumption is that you have VALUES in a dropdown list, and you want to save each value in that list as a pdf file? if yes, then it is possible, but why would anyone wish to do that?If no, then please explain, in detail what you need.

2 more replies
Relevance 51.66%

hello,
I'm trying to come up with a macro that will keep only a couple of certain rows visible when I open the workbook. The "certain rows" will be changing each month. I'm attaching a sample workbook which should make this easier to understand

Mike
 

More replies
Relevance 51.66%

Hi I am new to this site and would like to send my greetings to all of you. I am new to macro and have never used em before, please help.I need help on making a macro for the following situation. I receive a excel file that have more then 7000 names in cloumn B and i need to filter it to display only a certain name and then save as html format with the name that i just filtered and i have to create a main folder then a sub folder for every single saved file and on top of that i have to put it on the G: server drive.I am sorry for my explanation, please bare with me. all this task is being done manually everyday and is taking much of my time. So i would like to know if there is a way for me to have a macro that auto filter the list and save as htlm every filtered result and create the folders and sub foders with date stamps.Any imput is tremendously appriciated, thank you all in advance.

Answer:Macro to auto filter&save as html

Hi,A few questions for clarification:1.When you say more than 7000 namesIs that 7000 different namesor7000 cells with names - but many are the same.2.If many are the same, approximately how many unique names are present in column B3.If there were say 100 unique names, can you confirm that you want 100 files saved, each in a unique sub-folder named with the appropriate 'filtered' name.4.If each file saved is filtered by a unique name, do you need to save only the data that belongs to that name.5.What row does the data start on. Is there is a header row or rows before the data.6.What is in column A - is it data that also needs to be saved.Regards

18 more replies
Relevance 51.66%

Dear All,I am looking for a macro to save a file name with active cell value(where the cursor is placed) and with 3 date options.Date options = a pop-up should come-up with buttons asking A B and C. If I click A = save the file with today's date. Click B = yesterday's date and Click C = day before yesterday's date.In brief the flow of the macro should be:Open the excel file>>>Place the cursor on the cell which should be the filename(the name may be anywhere in the sheet)>>> run the macro >>> A pop-up with with button A B and C>>> say click on B>>> file should be saved in a drive path with the file name and yesterday's date like _xyz_20100626.xlsCould anybody help me in building this macro for me, I would be greatful to them and this may change my life in the office I work.Thanks a lot in advance for helping me.

Answer:Macro to save file with active cell value

Hi,Here is a simple macro to allow you to save the active workbook with a combination of the name in the selected cell and a date.The first option is to save with today's date - if that is rejected, you are asked to save with yesterday's date and if that is rejected, you are asked to enter a date.Finally the filename and date are presented for final confirmation before saving.The workbook is saved to the same directory as the last save and in the default format.The macro could easily be changed to include a path/folder, rather than rely on what has recently been used.The macro also tests that the selected cell isn't empty - so that you don't go through the steps only to find that there is no name.I suggest that this macro, is stored in a module in an Excel Add-In so that it is always available, and the macro code does not end up in dozens of saved workbooks.The macro is run from a button on the Quick Access Toolbar.(I don't have Excel 2010, so I am going on Excel 2007 - hopefully the steps are the same - but I can't guarantee it).Start with a new workbook. Save it as an Excel Add-In (*.xlam) - use the 'Other formats' option in 'Save as' and find the Excel Add-In option.Name it e.g., "SaveAsName.xlam" and save.From the Office button select Excel options (at the bottom) and select 'Add-Ins' then in the drop-down at the bottom select 'Excel Add-ins' and click 'Go'In the dialog box click 'Browse' and your new add-in should be visible in the list - select it and click OKSaveAsNam... Read more

5 more replies
Relevance 51.66%

Thank to Humar for his hard work and knowledge he came up with the following macro for me: Option ExplicitSub Parser()'Parsing by regionDim strWkBkName As StringDim rngStart As RangeDim rngEnd As RangeDim rngCell As RangeDim rngDestStart As RangeDim arryNames() As StringDim intArry As IntegerDim blnNotPresent As BooleanDim blnFound As BooleanDim intDestOffst As IntegerDim wkbkNew As WorkbookDim strPath As StringDim strNamePath As StringDim objFSO As ObjectDim n As IntegerOn Error GoTo ErrHndApplication.ScreenUpdating = FalsestrWkBkName = ActiveWorkbook.NameSet rngStart = ActiveSheet.Range("B9")Set rngEnd = ActiveSheet.Range("B" & CStr(Application.Rows.Count)).End(xlUp)Set rngDestStart = Worksheets("Sheet2").Range("A9")strPath = "C:\Users\Documents\test\"intArry = Int(rngEnd.Row / 4)ReDim arryNames(intArry)For Each rngCell In Range(rngStart, rngEnd) blnFound = False blnNotPresent = False For n = 0 To intArry If rngCell.Text = arryNames(n) Then blnFound = True If blnFound = True Then Exit For If arryNames(n) = "" Then blnNotPresent = True If blnNotPresent = True Then Exit For Next n If blnNotPresent = True Then arryNames(n) = rngCell.Text End IfNext rngCellFor n = 0 To intArry If arryNames(n) <> "" Then Worksheets("Sheet2").Cells.Clear Worksheets("Sheet1").Range("1:8").Copy _ Destination:=Worksheets("Sheet2").Range("A1") Worksheets("Sheet1").Rows(1).Copy Worksheets("Sheet2").Ra... Read more

Answer:Macro to auto filter&save as html

Hi for what its worth please don't flame my nobness here is what i have tried .. i was able to filter the column c and save it as folders and html file .. my problem is the main filtering of colum B and saving them as main folder here is my code:Option ExplicitSub neeew1()'Parsing by regionDim strWkBkName As StringDim rngStart As RangeDim rngEnd As RangeDim rng1Start As RangeDim rng1End As RangeDim rngCell As RangeDim rng1Cell As RangeDim rngDestStart As RangeDim arryNames() As StringDim intArry As IntegerDim blnNotPresent As BooleanDim blnFound As BooleanDim intDestOffst As IntegerDim wkbkNew As WorkbookDim strPath As StringDim strNamePath As StringDim objFSO As ObjectDim n As IntegerOn Error GoTo ErrHndApplication.ScreenUpdating = FalsestrWkBkName = ActiveWorkbook.NameSet rngStart = ActiveSheet.Range("B9")Set rngEnd = ActiveSheet.Range("B" & CStr(Application.Rows.Count)).End(xlUp)Set rng1Start = ActiveSheet.Range("C9")Set rng1End = ActiveSheet.Range("C" & CStr(Application.Rows.Count)).End(xlUp)Set rngDestStart = Worksheets("Sheet2").Range("A9")strPath = "C:\Users\bdo\Documents\S-report\region test\test\"intArry = Int(rng1End.Row / 4)ReDim arryNames(intArry)For Each rngCell In Range(rng1Start, rng1End) blnFound = False blnNotPresent = False For n = 0 To intArry If rngCell.Text = arryNames(n) Then blnFound = True If blnFound = True Then Exit For If arryNames(n) = "" Then blnNotPresent = True If blnNotPresent = True Then Exit For Next n ... Read more

2 more replies
Relevance 51.66%

We have Exchange 2007, and I want to be able to have a message sent to our users anytime someone tries to email them with a message that exceeds are message size restrictions. The sender gets a message bounced to them, but the recipient never gets a message and thus they have no idea if someone is trying to email them or not.

I've searched Google and come up blank, also the Exchange help guide is of no help. Anything would be greatly appreciated.
 

Answer:How to send email to recipient when email is bounced back to sender.

Not sure that you can do that, but if you figure something out post it up here. im interested in finding out if you're able to do that.
 

1 more replies
Relevance 51.66%

hello anyone

Here is a question I need you help me:

I want to send an attachment file to many email addresses at one time, but when I sent it to them, I just want each person's email see only his or her email (as like as -->To: [email protected] in his or her mail only) that I sent for the person.

Can anyone tell me how to do that, or that can not do it, only send one by one? Please let me know immediately.

Thank you for your help

Phil

-------------------------------------------------------------------
For example, I don't want it display in each person's email like that:

Date: Fri, 11 Jun 2004 17:35:51 -0700 (PDT)
From: "Phil T" <[email protected]> Add to Address Book
Subject: re: one to many (one file to each separate person)
To: [email protected], [email protected], [email protected]
[email protected]--

-------------------------------------------------------------------
I want it display like this below (each person received like this, To: [email protected]) and other email received the same file too:

Date: Fri, 11 Jun 2004 17:35:51 -0700 (PDT)
From: "Phil T" <[email protected]> Add to Address Book
Subject: re: one to many (one file to each separate person)
To: [email protected]
------------------------------------------------------------
Date: Fri, 11 Jun 2004 17:35:51 -0700 (PDT)
From: "Phil T" <[email protected]> Add to Address Book
Subj... Read more

Answer:re: how to send an attachment file to many email addresses, but each person email...

I think you you need to put people's address in the bcc (blind carbon copy) field.
 

1 more replies
Relevance 51.66%

Hi, firstly please bear with me as i'm new to this. I'm trying to setup the email on our virtual server through cpanal and using Thunderbird 3 (although i did try it with Outlook 2007 and the same results.)

Using the given Incoming and Outgoing mail server info given (mail.domain.co.uk) and the mail server username, I get a failed to find error (using both POP3 and IMAP). If I change that too the SSL settings for Incoming / Outgoing (serverusername.miniserver.com), it works and autofinds Connection Security as STARTTLS and finds the ports too. With this I can send emails fine, but I am not getting incoming emails, and I don't know enough about it too see what I'm doing incorrect, any help would be great, thanks.

I posted this on yahoo answers first, but the only response I got was "restart your outloook and try later." *facepalm* Glad to have found a place more dedicated to such problems.
 

More replies
Relevance 51.66%

Hi guys,
I would like to be able to move an email to a sub folder of my mailbox and get Outlook to send an email to the sender of the email I moved into it. Hope that makes sense.

I found this archived thread http://forums.techguy.org/business-applications/439567-outlook-reply-email-when-mail.html which has proved very helpful and I've managed to get it working for me.

I would like it to send more than just a one line email reply but I don't know how, maybe get it to use a text file for the body of the email?

Any help would be great

Thanks
 

More replies
Relevance 51.66%

When I got BellSouth DSL years ago I had Outlook email account set up with BellSouth as outgoing and old domain as incoming so I could keep my email address from another domain. It worked fine until a year or so ago I had to add another account just for BellSouth and that worked fine.

Within last few weeks emails from my email address (old domain) would not send. I've been through it with ATT tech several times to no avail.

It seems that ATT has trapped me out and does not want me to be able to keep my old email.

There's bound to be a way to set up my email accounts so my outgoing email from my other ISP provider will send through BellSouth without changing my very old and reliable email address.

Also, I recently have acquired my own domain name and I fear emails from that email address will suffer the same fate.

I hope this is not too long, but PLEASE HELP if you can.
 

Answer:Can't send email using different domain in email address BellSouth trapped me out...

If your BellSouth e-mail service is provided by Yahoo, then you probably need to go through a registration and authentication process for each e-mail address you want to send through a non BellSouth/Yahoo mail server. At least that is what I had to go through as an SBC/ATT DSL customer. They claim that they do the blocking to prevent from originating from users within their network.

http://help.yahoo.com/l/us/yahoo/mail/classic/manage/sendfrom-07.html

EDIT: Forgetting my manners. Hi and welcome to TSG.
 

1 more replies