To delete the draft email

jalal

Member
Outlook version
Outlook 2016 64 bit
Email Account
IMAP
Hi All,


I am using the code from the post VBA Help Email that will save as draft and send as attachment

Below is my code. The problem is it works fine but i am not able to delete the email which gets saved in the draft? and i am planning to deploy this code to each of the users PC so how i can remove the hardcoded line of abc.com , instead it should read the value from somewhere dynamically. Any direction would certainly help.


Code:
Public Sub Initialize_Handler()

Set Item = Application.ActiveInspector.CurrentItem

End Sub

Private Sub Item_Close(Cancel As Boolean)
 answer = MsgBox("Do you want to send this for approval?", vbYesNo)

If answer = vbYes Then
    Cancel = False
    Item.save
    Set fw = Application.CreateItem(olMailItem)
      fw.To = "abc.com"
      fw.Subject = "Needs Approval"
      fw.Attachments.Add Item
      fw.Send
    Item.Delete ' Gives Error here
ElseIf answer = vbNo Then
    Cancel = False
End If
 
End Sub
 

saurabhjha

New Member
Outlook version
Outlook on the web
Email Account
Exchange Server
Move to draft , you can delete it from draft folder.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
instead it should read the value from somewhere dynamically
Where should it get the address from?


Item.Delete ' Gives Error here
You're using IMAP? That is probably the 'imap bug'. The active item can't be deleted. (I need to test it and see if we can do it another way, which i mean to do in July and forgot. :( )
 
Thread starter Similar threads Forum Replies Date
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 14
A Attachments.Delete Outlook VBA and Custom Forms 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
R Expand VBA Permanent Delete Code Outlook VBA and Custom Forms 6
M Delete headers in Inline reply Outlook VBA and Custom Forms 5
N VBA to delete duplicates by message-id on common pst for 2 or more emails Outlook VBA and Custom Forms 0
S How can I delete all copies of a given companies logo graphic from all my emails at once? Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
D after delete mail, open the next one Outlook VBA and Custom Forms 0
O Delete duplicate emails - subscription notifications Using Outlook 5
F Delete/create/reset Exchange mailbox on Outlook.com Using Outlook.com accounts in Outlook 3
L Email Read and Delete Outlook VBA and Custom Forms 4
H Delete Calendar Entries in Using Outlook 2
D Delete Emails from Senders in Shared Mailbox Outlook VBA and Custom Forms 1
R How to delete Facebook Contacts folder in Outlook 365 Using Outlook 7
R VBA Code to permanently delete selected email Outlook VBA and Custom Forms 10
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5
C How to replace or delete first instance of sentence in mail body? Outlook VBA and Custom Forms 1
Z Can't delete IMAP folder Using Outlook 2
J Delete old emails Exchange Server Administration 1
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
T Delete Emails from search results Outlook VBA and Custom Forms 1
I Outlook 2013 How do I delete a Calendar? Using Outlook.com accounts in Outlook 1
N How to delete default folder "Contacts" (olFolderContacts) in a .pst file Using Outlook 8
O How to delete posts New Slipstick.com Articles 1
B How to 'really' delete IMAP emails? Using Outlook 6
H Search and delete part of a link inside HTML body message Outlook VBA and Custom Forms 2
B Delete/replace old files and save new attachments Using Outlook 1
D Delete selected text from incoming emails Outlook VBA and Custom Forms 25
mikolajek Random message selected after hard delete Using Outlook 4
Jeanne Goodman Delete Calendar Item Bypassing Deleted Items folder Outlook VBA and Custom Forms 2
C Delete Subject-Add Organizer to all Reservations in Default Calendar. Using Outlook 0
P Delete mail macro Outlook VBA and Custom Forms 6
B Outlook 2016: Can't delete default calendar but I don't use it Using Outlook 7
O How to delete duplicate RSS messages? Using Outlook 6
J "This item has been changed still want to delete it" message Using Outlook 3
M Can't Delete iCloud Calendar Notifications From Outlook 2016 Using Outlook 0
P Delete Icon Using Outlook 2
makinmyway Bulk Delete Contacts in iOS Outlook App Using Outlook 4
Diane Poremsky Delete an Outlook Group New Slipstick.com Articles 0
M Cannot Delete Emails from IMAP inbox Using Outlook 4
K Deleted calendar and contact items not going to delete folder Using Outlook 1
K Outlook 2013 Deleted calendar and contact items not going to delete folder Exchange Server Administration 1
J Adding Reply & Delete to main toolbar? Using Outlook 0
Reji Rajan Delete Data Outlook VBA and Custom Forms 1
K check for sender, follow to my personal adress and delete the sent folder. Outlook VBA and Custom Forms 1
L Outlook 2007 Delete Email Addresses Using Outlook 19
D Delete previous email based on arrival of new email Outlook VBA and Custom Forms 1
Similar threads


















































Top