i realize Im kinda off topic but do anyone know a good place to watch newly released tv shows online?

@Anders Briar Flixportal :D

@Jefferson Lyle Thank you, signed up and it seems to work =) Appreciate it !

@Anders Briar No problem xD

Sir i can not describe in words that how i am waiting for that day when i will join your training programme i am so excited to meet you

Thanks man appreciate it! My uncle used your videos as well and is currently a developer after he changed careers. He recommended I pursue this too!

Happy to help, thanks for watching!

Hi Jonathan, that's a great tip, thanks for sharing it with us!

Thanks Dee, glad you enjoy them!

You're welcome, Miguel! Thanks so much for watching!

You're welcome, Didzis! Thank you for watching!

You're welcome, thanks for watching!

You're very welcome, thanks for watching!

Thanks Rajkumar! You can format text in a Word document using a number of different properties. The best approach perhaps is to use Word's macro recorder - change a bunch of formatting options and see what code is written for you. To get you started, here's a bit of code to format the first four characters in the document: With doc.Range(0, 4).Font .Bold = True .TextColor.RGB = RGB(200, 0, 200) .Underline = wdUnderlineSingle End With I hope that helps!

@@WiseOwlTutorials thanks for your reply Sir... Surely will try this...

Hi there, you can reference the table using the Tables property and referring to it by its index number. So after pasting your first table into the email you could say: doc.Tables(1).AutoFitBehavior wdAutoFitContent If you'd prefer your table to occupy the full width of the window, use wdAutoFitWindow rather than wdAutoFitContent I hope that helps and thanks for watching!

Very good. Somewhat works. Much Better than before. It might be a limitation or glitch with excel 2013 and outlook 2013. It works some of the time. What I realized is that I still have to follow up by going to the email, selecting and right click the table, Autofit, then Fixed Column Width to get the desired result. Though rare, I had to select Fixed Column Width twice to obtain the desired result. What vba code Should i use to accomplish the fixed column width for the word table?

Hi there, you can use wdAutoFitFixed instead of wdAutoFitContent or wdAutoFitWindow - you can see more information here docs.microsoft.com/en-us/office/vba/api/word.table.autofitbehavior I hope that helps!

Hmm interesting, I don't see the same results. Did you discover why this is happening?

Hi! We have a whole video on working with embedded chart objects including how to loop through the ChartObjects collection. I hope it will help you kzfaq.info/get/bejne/mNuCqteru92bhYU.html

Even I get the same error. I have only one version of office. Have tried separately on Standard 2013 and Professional plus 2013.

Couldn’t hurt to try this. Instead of using doc = mi.GetInspector Try doc = ol.CreateItem(olMailItem).GetInspector In other words limit the number of items set within a set... Maybe excel 2013 has an issue with too many imbedded sets. Don’t know if it worked because I had a typo but I recall a similar issue and to troubleshoot I “spelled out” the entire item/object set and I did not receive an error. Maybe that helps.

@@TitoLatino Tried that too.still the same error. Is it because macros on my outlook are disabled?

@Sairam good question. I honestly Don’t know. I’m not as knowledgeable as the WiseOwl himself.

Hi Pankaj! If you post your code for question 1) I can take a look and see if there's anything wrong. I'm not quite sure how to handle question 2), I don't think I know enough about Outlook to get that to work, I'm sorry!

@@WiseOwlTutorials This is my code Sub SendMailwithLoop() Dim x As Long Dim lastrow As Long Dim rmname As String On Error Resume Next Sheet3.Select lastrow = Sheet3.Range("A1", Range("A1").End(xlDown)).Count For x = 2 To lastrow Dim ol As Outlook.Application Dim mi As Outlook.MailItem Set ol = New Outlook.Application Set mi = ol.CreateItem(olMailItem) Dim doc As Word.Document Set doc = mi.GetInspector.WordEditor mi.Display mi.To = Sheet1.Range("D3") mi.CC = Sheet1.Range("D4") mi.Subject = "No Closure " & Sheet3.Cells(x, 1) 'mi.Send Dim Msgtext As Stringa ' rmname = Cells(x, 1).Value ' Sheet1.Activate Sheet3.Cells(x, 1).Copy Sheet2.Range("B1").PasteSpecial Sheet2.Activate Sheet2.Range("A1").CurrentRegion.Copy doc.Range(0, 0).Paste Msgtext = "Dear Team, " & vbNewLine & vbNewLine & _ "xxxxxxxxxxx" doc.Range(0, 1).InsertBreak doc.Range.InsertBefore Msgtext Application.CutCopyMode = False Next x End Sub

this code working in break mode when i use normal mail send but body missing sir kindly help me

@@PankajNegi007 Hi Pankaj! You have mi.Send before you write the body of the email in the Word document. Try moving the mi.Send line to the end of your loop, just before Next x I hope it helps!

@@WiseOwlTutorials Thanks Sir for your prompt Reply now coding is working perfecting. Thank you so much sir!!!!! One thing I want to say I learnt all VBA Coding only for 'Wiseowl tutorials'.

Hi there! Sorry I don't have any insights, I'm sure you've Googled but just in case you hadn't seen these suggestions answers.microsoft.com/en-us/msoffice/forum/all/vba-word-has-encountered-a-problem-5097/e060b681-c6da-4ee7-956c-dd2169430e43 social.msdn.microsoft.com/Forums/en-US/2de7d27b-5951-4d32-9ec2-880457679656/getting-a-lot-of-error-5097-in-vba?forum=worddev

Interesting, I don't recall having that problem with Office 2019 but we've been using Microsoft 365 for a few years now. I'm not sure what to suggest to solve the problem.

@@WiseOwlTutorials lucky you. I just thought this morning that my firm has disabled some VBA functionality. Is that possible

Hi! You might find these links useful docs.microsoft.com/en-us/office/vba/word/concepts/customizing-word/applying-formatting-to-text docs.microsoft.com/en-us/office/vba/api/word.font.bold docs.microsoft.com/en-us/office/vba/api/word.hyperlinks.add I hope it helps!

Thanks Juan Pablo! You can use the PasteSpecial method in Word to indicate that you want to paste the Excel table as a metafile. Using the same workbook shown in the video you can do this: Sheet1.Range("A1").CurrentRegion.Copy doc.Range(1, 1).PasteSpecial _ Placement:=wdInLine, _ DataType:=WdPasteDataType.wdPasteEnhancedMetafile Here's the reference to the PastseSpecial method for some further reading docs.microsoft.com/en-us/office/vba/api/word.range.pastespecial I hope it helps!

@@WiseOwlTutorials Hi Andrew! First of all, thanks for the reply! I've tried to use the PasteSpecial Method and I got a compile error on the Placement parameter wdInLine. The thing is, I'm trying to have a late binding approach on this macro because I don't want it to fail whenever the word and outlook versions change. So I'm sure I got that error because I don't have the word reference enabled. Here is my code: Sub SendEmails() Dim Olook As Object Dim Omail As Object Dim Insp As Object Dim wdDoc As Object Dim Body As String Dim p As Variant Set Olook = CreateObject("Outlook.Application") O.Range("Ini").CurrentRegion.Name = "Overdues" For Each p In A.Range("LPJM") Set Omail = Olook.Createitem(0) A.Range("AuxLeader").Value = p.Value O.Range("Overdues").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=A.Range("Crit") _ , CopyToRange:=F.Range("A1:U1"), Unique:=False FormatTable With Omail .Bodyformat = 2 .Display .To = F.Range("IniF").Offset(1, 20).Value .Subject = "Overdues CW " & Application.WorksheetFunction.WeekNum(Date) - 1 End With Set Insp = Omail.GetInspector Set wdDoc = CreateObject("Word.Document") Body = "Dear " & Right(F.Range("IniF").Offset(1, 10).Value, Len(F.Range("IniF").Offset(1, 10).Value) - InStrRev(F.Range("IniF").Offset(1, 10).Value, ",")) ' & "," & vbNewLine & vbNewLine wdDoc.Range.InsertBefore Body F.Range("IniF").CurrentRegion.CopyPicture wdDoc.Range(Len(Body), Len(Body)).Paste Next p End Sub The code leaves me with a new email with the Subject and the To fields with info and my signature. Also I see an open word document containing what should have been the email's body. Maybe the late binding applied to me word inspector is wrong but I'm not sure about it.

@@WiseOwlTutorials I got some updates! I tried using the constants for the parameters on the PasteSpecial function, and now it worked! I now get an email with the body filled with my message and my table. My current problem now is that the table gets pasted on a really small size. Would there be a way to resize this image? Also, I'm trying to add a "Best Regards," at the end of all, but the code inserts this part right next to my image. I could not figure out how to make it show two lines below the table. Here is my code in case I did not make myself clear! Sub SendEmails() Dim Olook As Object Dim Omail As Object Dim Insp As Object Dim wdDoc As Object Dim Body, Regards, NewLine As String Dim p As Variant Set Olook = CreateObject("Outlook.Application") O.Range("Ini").CurrentRegion.Name = "Overdues" For Each p In A.Range("LPJM") Set Omail = Olook.Createitem(0) A.Range("AuxLeader").Value = p.Value O.Range("Overdues").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=A.Range("Crit") _ , CopyToRange:=F.Range("A1:U1"), Unique:=False FormatTable With Omail .Bodyformat = 2 .Display .To = F.Range("IniF").Offset(1, 20).Value .Subject = "Overdues CW " & Application.WorksheetFunction.WeekNum(Date) - 1 End With Set Insp = Omail.GetInspector Set wdDoc = Insp.WordEditor ' NewLine = Chr(10) ' wdDoc.Range(1, 0).InsertAfter NewLine ' ' Regards = "Best Regards," ' wdDoc.Range(0, 0).InsertAfter Regards F.Range("IniF").CurrentRegion.Copy wdDoc.Range(0, 0).PasteSpecial _ Placement:=0, _ DataType:=9 Body = "Dear " & Right(F.Range("IniF").Offset(1, 10).Value, Len(F.Range("IniF").Offset(1, 10).Value) - InStrRev(F.Range("IniF").Offset(1, 10).Value, ",")) & "," & Chr(10) & Chr(10) & "Please your support to update in Lander below LOPs of " & F.Range("IniF").Offset(1, 4).Value & " as they are already in Overdue, one of them since more than " & Application.WorksheetFunction.RoundDown(Application.WorksheetFunction.Max(F.Range(F.Cells(2, 2), F.Cells(100, 2))), 0) & " weeks." & Chr(10) & Chr(10) wdDoc.Range.InsertBefore Text:=Body Next p End Sub

@@juanpablohorn6642 Hi Juan Pablo, try inserting the "Best Regards" first and then the NewLine, to use your style of code it would look like this: Regards = "Best Regards," wdDoc.Range(0, 0).InsertAfter Regards NewLine = Chr(10) wdDoc.Range(0, 0).InsertAfter NewLine I hope that helps!

@@WiseOwlTutorials! Hi Andrew! It worked! Now I only need to solve the table size on the image. Do you happen to have an idea? As always, thanks a lot for your reply! I really appreciate it!

Hi Margaret, you might find this video useful kzfaq.info/get/bejne/jMh1krqlpsrOn6c.html I hope it helps!

@@WiseOwlTutorials Thanks Andrew! Appreciated.

Hi Meir, that's interesting! The solution isn't just as simple as using InsertAfter rather than InsertBefore is it? (he asked hopefully!)

@@WiseOwlTutorials Thanks for the swift response and question . The insert after helps me with a different issue i was having that I after the email was created I wanted the user to be able to continue to edit (RTL) after the initial text i pushed. Now that I place text with the "InsertAfter" he can continue typing as normal. But as for being able to control the Text Size still the size of the text remains as Outlook Defaults no matter what i seem to do .. Regards

Hi Mehmet! There are lots of different ways to do this sort of thing. Try Googling for "excel vba mail merge outlook" and you'll find plenty of suggestions. I hope that helps!

@@WiseOwlTutorials thank you very much!

@@mecann1 No problem!

Hi Jonathan, you should be able to use the Position parameter of the Attachments.Add method to do this as described here docs.microsoft.com/en-us/office/vba/api/outlook.attachments.add I hope it helps!

@@WiseOwlTutorials Thank you so much for the advice. It Works! Really appreciate your prompt reply.

@@jonathanchan7377 No problem Jonathan, happy to hear that it worked!

@@WiseOwlTutorials Sorry, come across another question. How could we change the font color of some part of the text in the email body?

@@jonathanchan7377 Hi Jonathan, you can use the Font ColorIndex property to do this docs.microsoft.com/en-us/office/vba/api/word.font.colorindex I hope it helps!

Hi Danny, absolutely, yes! You can just change this line: Dim doc as word.document To this: Dim doc as Object You can then remove the reference to the Word Object Library and everything else will work as normal. I hope that helps!

@@WiseOwlTutorials Thank you, Danny

Hi Nelson, here are some basic formatting options you can apply to a range of text. The code in the With block will format the text "Dear Someone": MsgText = _ "Dear Someone," & vbNewLine & vbNewLine _ & "Please see the table below:" & vbNewLine doc.Range(0, 0).InsertBefore Text:=MsgText With doc.Range(0, 12) .Bold = True .Underline = wdUnderlineSingle .Italic = True .Font.TextColor.RGB = RGB(241, 132, 31) End With

@@WiseOwlTutorials Hi, i have a similar question. If i want to change the font of the entire email, i tried using".WholeStory", it managed to change the font but it will always fail on the very first email i sent out in a loop. Could you advice if there are other way to do it? Thanks.

I don't know the answer but you could try some of these suggestions stackoverflow.com/questions/45376329/mailitem-getinspector-wordeditor-in-office-2016-generates-application-defined-or

@@WiseOwlTutorials I receive the same error with this line of code and can't figure out why

@@mikesmith8346 Sorry Mike, I don't know the answer to this one.

@@WiseOwlTutorials Thanks for replying. I suspect our IT dept. Has made a change in the background at is it was working before. I have the word and outlook references checked. Clutchibg at straws but: IsWordMail = True ActiveInspector.EditorType = olEditorWord. IsOutTrusted = False. I have also tried preceding Set doc = mi.GetInspector.WordEditor with mi.GetInspector.Activate to no avail. I can only think it must be a change in the background 🤔

@@mikesmith8346 Hi Mike, you may be right, I'm unable to reproduce the error here.