Insert a Date Picker for Send Mail Subject

Status
Not open for further replies.

carmine

Member
Outlook version
Outlook 2013 32 bit
Email Account
IMAP
Hey all,




I send email with below codes and it send them successful along with attachments, I need to have a date picker for send mail subject part or an input box which validate date. The selected date will be part of .Subject.




Code:
Sub Send_Files()
 
 
'Working in Excel 2000-2013
 
 
'For Tips see: [URL]http://www.rondebruin.nl/win/winmail/Outlook/tips.htm[/URL]
   Dim OutApp As Outlook.Application
   Dim OutMail As Outlook.MailItem
   Dim sh As Worksheet
   Dim cell As Range
   Dim FileCell As Range
   Dim rng As Range
   With Application
       .EnableEvents = False
       .ScreenUpdating = False
   End With
   Set sh = Sheets("send")
   Set OutApp = CreateObject("Outlook.Application")
   
   For Each cell In sh.Columns("c").Cells.SpecialCells(xlCellTypeConstants)
       'Enter the path/file names in the C:Z column in each row
       Set rng = sh.Cells(cell.Row, 1).Range("d1:Z1")
       If cell.Value Like "?*@?*.?*" And _
          Application.WorksheetFunction.CountA(rng) > 0 Then
           Set OutMail = OutApp.CreateItem(olMailItem)
           With OutMail
               .To = cell.Value
               .Subject = "Testfile"  '[B]DATE SELECTED BY USER FROM DATE PICKER OR INPUT BOX[/B]
               .Body = "Hi " & cell.Offset(0, -1).Value
               For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                   If Trim(FileCell) <> "" Then
                       If Dir(FileCell.Value) <> "" Then
                           .Attachments.Add FileCell.Value
                       End If
                   End If
               Next FileCell
               .Display  'Or use Send
           End With
           Set OutMail = Nothing
       End If
   Next cell
   Set OutApp = Nothing
   With Application
       .EnableEvents = True
       .ScreenUpdating = True
   End With
 
 
End Sub
 
Outlook doesn't have a date picker. If you need a specific date, like 3 days from now, you can do it automatically. Since you are using Excel, you could use the excel functions for weekdays (M-F), to allow 3 business days from now.

To use the Excel date picker, you'd need to use a userform and add the date picker control to the form.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
C Insert date in Subject through date picker Using Outlook 0
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
Witzker Outlook 2010 Insert Date & Time at the button of an OL contactform in red Using Outlook 2
Witzker insert Date & Time (HH:mm) no (ss) in userform Using Outlook 6
A insert Date & Time in userform Using Outlook 3
J Form design - how do I insert an automatic date/time field? Using Outlook 2
F Insert date at cursor location Outlook VBA and Custom Forms 4
L "Insert Pictures" Button-Wrong Folder Using Outlook 5
C Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 4
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
Z VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
B Programmatically force html send and insert clipboard contents into body Outlook VBA and Custom Forms 0
P Insert link in email body to attached document in Outlook 365 Outlook VBA and Custom Forms 0
E Copy e-mail body from outlook and insert into excel Outlook VBA and Custom Forms 3
R How Do I insert images in and Auto Reply Using Outlook 3
L Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 33
Diane Poremsky Create Task or Appointment and Insert Selected Text Using Outlook 0
B Insert Hyperlinks for attachments in Userform Outlook VBA and Custom Forms 5
D Outlook task insert Outlook VBA and Custom Forms 3
A Auto Insert of filename when selecting 'Remove Attachment' Using Outlook 1
K Insert screenshots issue Using Outlook 2
makinmyway Recent Files Not Updating when Using Insert Hyperlink in Outlook 2013 Using Outlook 0
L Insert Photo to Contact Using Outlook 23
K OL2010 Button to Insert First Name Outlook VBA and Custom Forms 6
K OL2010 Button to Insert First Name Using Outlook 1
K Macro to insert attachments Using Outlook 1
mrje1 Opening a task the Insert Tab Option is not showing up and organizing Tasks Using Outlook 9
H Insert Specific Text before Subject for New mails and reply Using Outlook 3
R insert picture tab grey Using Outlook 1
K Outlook insert clip art, no results found...address book contacts only show up Using Outlook 5
J How do I view the ruler in an Outlook message and/or insert tabs? Using Outlook 7
L Forward Email and Insert Sender's Email address in body Outlook VBA and Custom Forms 3
D Insert Text and Send Outlook VBA and Custom Forms 1
D Re: How do i insert radio buttons in an email Outlook VBA and Custom Forms 1
G How to insert a json array into a calendar events Outlook VBA and Custom Forms 1
K insert text into current position of pointer in mailcompose Outlook VBA and Custom Forms 1
J Insert File Outlook VBA and Custom Forms 2
M Insert a File Outlook VBA and Custom Forms 3
G Task / Insert / Attach Item / Business Contact BCM (Business Contact Manager) 1
M Forward email as insert from button Outlook VBA and Custom Forms 1
B Simple way to insert file text - macro? Outlook VBA and Custom Forms 1
S How to insert a picture programatically Outlook VBA and Custom Forms 12
C insert a picture Outlook VBA and Custom Forms 1
J How do I scan and insert into Outlook 2007? Using Outlook 3
B Insert information to MailItem Outlook VBA and Custom Forms 1
D RE: How do you change the default insert file path in outlook? Using Outlook 11
D Insert Text via Macro in Outlook 2007 Outlook VBA and Custom Forms 2
T Is it possible to INSERT a string into email body via Shortcut. Outlook VBA and Custom Forms 2

Similar threads

Back
Top