So the code below is working flawlessly.. With one small exception. When a user types in the email this opens, it is by default choosing to be double spaced, A few users have made an issue of this. I looked through a list of variables and nothing jumped out at me, A couple body options, but nothing I am familiar with. Any Ideas?
Code:
Sub CreateMail()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
'Create e-mail item'
Set objMail = olApp.CreateItem(olMailItem)
Dim oservman As InternetExplorer
Dim client, aClient, ClientNum, Probloc, SMmail, Sum, Desc, SD As String
Dim iQLS As Long
Set oservman = GetServMan
Set otest = New clsSmselect
On Error GoTo MailErr
otest.SMselect oservman
Set oservman = GetServMan
client = otest.client
Probloc = otest.Probloc
SMmail = otest.SMmail
Sum = otest.Sum
Desc = otest.Desc
SD = otest.SD
Set oservman = Nothing
''' Assigning the things above in outlook mail message.
With objMail
.Subject = client & " / " & Sum & " / " & SD
.Body = "Ticket Notes: " & Desc
.To = SMmail
.Display
.ReadReceiptRequested = True
End With
Exit Sub
MailErr:
MsgBox "The class objects are unable to be determined, so the email cannot autopopulate your notes.", , "YOU BROKE IT"
End Sub