we currently use this:-
Sub When_will_my_item_get()
Dim mymail As Outlook.MailItem
Dim myReply As Outlook.MailItem
Dim numItems As Integer
Set mySelected = Outlook.ActiveExplorer.Selection
numItems = mySelected.Count
For i = 1 To numItems
Set mymail = mySelected(1)
Set myReply = mymail.Reply
mytext = myReply.Body
myReply.Subject = "Response to item tracking"
With myReply
mytext = "Hello," & vbCrLf
mytext = mytext & vbCrLf & "We can confirm that your item has been despatched, you should be receiving it within the next 2 - 5 working business days (excludes Saturday and Sundays). This is on the condition that:- We have received payment from your self - you'll have confirmation by email of this either by pay pal, eBay or our own website email If you paid by cheque or postal order please allow an additional 2 - 5 working days to allow the funds to clear"
mytext = mytext & vbCrLf & "Thank You"
mytext = mytext & vbCrLf & "ams"
mytext = mytext & vbCrLf & "01723 81"
End With
myReply.Body = mytext
myReply.Send
mymail.Delete
Set mymail = Nothing
Set myReply = Nothing
Next
Set mySelected = Nothing
End Sub
however whenever we fire the email off it deletes the whole converstion how would we make it so that the prevous emails are kept at the bottom? also does anyone know how to make the original subject line stay the same without using our subject line
thanks in advance!