NewFileNameWd = YYMM & "_" & sh1.Cells(r, 12).Value & "_" & sh1.Cells(r, 2).Value & ".docx" 'Change File Name as req'd" In your copied spreadsheet, update the Recipients column with email addresses you want to use in the mail merge. Need to send personalized emails to individuals all at one time That is called an 'Email Mail Merge.' Im going to use Excel, Word, and Outlook - part of Mi. The Apps Script project for this solution is attached to the spreadsheet. YYMM = Format(sh1.Cells(r, 11).Value, "YYMM") Click the following button to make a copy of the Gmail/Sheets Mail Merge sample spreadsheet. PeriopCertPath = "C:\Users\305015724\Documents\ApplicationsTraining\2016\Periop\"
With objMMMD.MailMerge 'With ActiveDocument.MailMerge Make sure to save it, then go to FILE, click New, and open a Blank document. First, click FILE and close the current document. MailMerge.OpenDataSource Name:=cDir + ThisFileName, sqlstatement:="SELECT * FROM `Periop$`" ' Set this as required You create Mail Merge Envelopes the same as email messages or letters. ' Set to True if you want to see the Word Doc flash past during construction Set objWord = CreateObject("Word.Application") Set objWord = GetObject(, "Word.Application") SeminarDate = Format(sh1.Cells(r, 4).Value, "d mmmm YYYY")Ĭonst WTempName = "Certificate_Periop_2016.docx" 'Template nameĬDir = ActiveWorkbook.Path + "\" 'Change if required If IsEmpty(Cells(r, 10).Value) = False Then GoTo nextrow Lastrow = Sheets("Periop").Range("A" & Rows.Count).End(xlUp).Row 'Your Sheet names need to be correct in here
Email merge from excel how to#
Any idea how to get around that? - Any help much appreciated. I have to manually click "Don't Save" and then it chokes as it tries to reopen the file for the next line. I think the problem is that if I don't save it as word, it doesn't shut the template down properly (there is code to close it). I have modified the code from this post: Automating Mail Merge using Excel VBAīut I only want pdf output but as soon as I take out the word code, it baulks.
0 kommentar(er)
