Pfthb

might be you are able to help me with VBA code.

I got a code that send as PDF part of excel sheet.
Problem is that email is used by many people and sometimes text is confidential. Is there an option to delete email (sent items and deleted items) after email is sent?

Using office 2000

Here is my existing code.

Sub SendDDocs()
 Dim IsCreated As Boolean
 Dim PdfFile As String, Title As String
 Dim OutlApp As Object
 Dim rng As Range
 Set rng = Range("A1:J103")

 Title = Range("o1")


 Title = Range("o1").Value & " Confidetial"
 PdfFile = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & Title & ".pdf"

 With ActiveSheet
 .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 = Title
 .To = "email@email.com"
 .CC = "email@email.com"
 .Body = "" & vbLf & vbLf _
 & "a" & vbLf & vbLf _
 & "" & vbLf _
 & Application.UserName & vbLf & vbLf
 .Attachments.Add PdfFile

 Application.Visible = True
 .Display
 End With

Kill PdfFile

 If IsCreated Then OutlApp.Quit

 Set OutlApp = Nothing

End Sub

Instead of .Display use

.DeleteAfterSubmit = True
.Send

to not save a copy in sent items.

See MailItem.DeleteAfterSubmit Property (Outlook).