this is what i am working with.
Italic Bold is the part that seems to be the issue so far
Italic Bold is the part that seems to be the issue so far
Code:
Sub sendexcelfileaspdf()
''clickone tools, Reference, create a referance
Dim outlookapp As Outlook.Application
Dim emitem As Object
Dim recipient As String, Subject As String
Dim message As String, Fname As String
'Message details
recipient = Range("C5") & "Stagarborists@Gmail.com"
Subject = "Stag Arborists"
message = Range("C3") & "" & "inPDF format"
message = message & vbNewLine & vbNewLine & "farhan"
Fname = Range("c27")
'Create the PDF attachment
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Fname
'Create Outlook Object
[B][I]Set emitem = outlookapp.CreateItem(olMailItem)[/I][/B]
With emitem
.To -recipient
.Subject = Subject
.Body = message
.Attachment.Add Fname
'display
.send
End With
Set outlookapp = Nothing