Code problem

[wayneao]

Sub Email4(control As IRibbonControl)
  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String
  Dim OutlApp As Object
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "-" &  ActiveSheet.Name & ".pdf"
  With Sheet3
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
  On Error Resume Next
  Set OutlApp = GetObject(, "Outlook.Application")
  If Err Then
    Set OutlApp = CreateObject("Outlook.Application")
    IsCreated = True
  End If
  OutlApp.Visible = True
  On Error GoTo 0
With OutlApp.CreateItem(0)
    .Subject = Range("Email!B4").Value
    .To = Range("Email!B1").Value
    .CC = Range("Email!B2").Value
    .BCC = Range("Email!B3").Value
    .Body = Range("Email!B5").Value
    .Attachments.Add PdfFile
    .Display
    Application.Visible = True
    On Error GoTo 0
 End With
 Kill PdfFile
End Sub

I do not want the name of the workbook included in the email
" PdfFile = ActiveWorkbook.FullName"
Nor the "ActiveSheet.Name "





Thanks for your help

[protonLeah]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)