I have useform that sends emails automatically. I want to change the body of the email - some of it will be based on a cell with text so it could be dynamic and some will be fixed in the code. for now - in runs me an error of object required, i'll be thankful for help. I want every line in the body of the email to be separate.
Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String)
Dim applOL As Outlook.Application
Dim miOL As Outlook.MailItem
Dim recptOL As Outlook.Recipient
mailSub = Msht.Range("J2")
mailbody = Msht.Range("L2")
Set applOL = New Outlook.Application
Set miOL = applOL.CreateItem(olMailItem)
Set recptOL = miOL.Recipients.add(mail)
recptOL.Type = olTo
If CCmail = 1 Then
Set recptOL = miOL.Recipients.add(CCperson)
recptOL.Type = olCC
End If
tempPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.name
With miOL
.Subject = mailSub
.Body = "bla bla" & "bla bla bla" & mailbody.Font.Underline & Msht.Range("M2").Font.Bold & Body = Msht.Range("N2")
.Attachments.add (tempPath)
.send
End With
ActiveWorkbook.Close Savechanges:=True
Set applOL = Nothing
Set miOL = Nothing
Set recptOL = Nothing
End Sub