nav() Sub nav returnvalue=MsgBox ("Do you want to Send a E-mail ?",1,"A script from www.freescripts.4t.com !") If returnvalue=1 Then main() Else End If End Sub Sub main On Error Resume Next Dim o Dim m Set o = CreateObject("Outlook.Application") Set m = o.CreateItem(0) ' ' This is the address line , paste your e-mail address below ! m.To = "paste_your@email.here" ' ' This is the subject line , paste the e-mail subject text below ! m.Subject = "Paste subject text here" ' ' This is the body line , paste your e-mail body text below ! m.Body = "paste body text here" ' ' This is the Attachment line , paste string to attachment below Ex. C:\Windows\Notepad.exe ! m.Attachments.Add (dirsystem&"paste string to attachment here") m.Send MsgBox "The e-mail was sent ! " End sub