Insert date in Subject through date picker

Status
Not open for further replies.

carmine

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




I use the below script to send mail from excel sheet and it successful send email & attachments. I wish to have date picker for mail subject which a user can select the date and send the email or an input box.


Thanks in advance.




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(xlCellTypeFormulas)
   '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 VIA INPUT BOX OR DATE PICKER[/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
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
C Insert a Date Picker for Send Mail Subject Using Outlook 1
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
B 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 New Slipstick.com Articles 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
M Can I insert pictures from a url address (from web) without downloading ? Using Outlook 1
M Insert clip art, shapes, smart art, chart and screenshot greyed out in OUTLOOK 2010 Using Outlook 2
T My Outlook 2007 - (Public folder-Calendar can't insert to My Favourite)but other calender can insert Using Outlook 1
R Outlook 2003: Insert, Item: Unable to insert an old email into a new email Using Outlook 2
L Outlook 2010 Insert file issue Using Outlook 1
Y Ideas: Insert an error code or give a short description of what you are trying to accomplish or fix.__ Using Outlook 1
C Ideas: Insert an error code or give a short description of what you are trying to accomplish or fix.__ Using Outlook 1
G enter key and space bar key insert characters into email Using Outlook 1
B How do I Insert a hyperlink (to company network) in an appointment in Outlook to distribute to attendees? Using Outlook 1
F Ideas: Insert an error code or give a short description of what you are trying to accomplish or fix.__ Using Outlook 2
L Outlook 2010: cannot insert tables or illustrations Using Outlook 14
S Insert 'Requested By' into Task entry Using Outlook 1
B Insert your business card into your email signature in Outlook Using Outlook 2
G How do I find/open Address Book in Windows7 and insert my Outlook Contacts? Using Outlook 3
T Outlook2003 can't insert object Using Outlook 4
M insert picture in body of email Using Outlook 1
K "out of memory error" when user tries to insert an attachment to an outgoing email. Using Outlook 1
N Insert Signature Manually Using Outlook 1
S Error 'outlook cannot launch an application to handle d:\xxxxxx' when try to insert file. Using Outlook 1
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
Similar threads


















































Top