mail işlemleri

Arkadaşlar merhaba, Aşağıdaki kod bloğu ile veri girişi yapılırken mail adresini inputbox ile istiyorum ve giriş sağlandıktan sonra veritabanına aktarıyorum. Eğer hatalı bir mail adresi girilirse de uyarı verdiriyorum. Ancak uyarı sonrasında tekrar inputbox u aktif hale getirmeyi başaramadım...

Aşağıdaki kodla mail atıp kayıt edilen yerden Pdf yi silebiliyorum. Benim istediğim Mail gittikten sonra 5 dakika sonra giden kutusundan gönderilmişler kutusundan ve silinenler kutusundan da silsin Kod şu Sub Mail_At() Dim OutApp As Object Dim OutMail As Object Dim Yol As String, Dosya_Adi As...