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!