На сайте нашел наверное начало самой операции:  
 
1.    
 
Sub SaveAccountData()    ' запускать один раз - для записи в реестр Windows параметров почтового аккаунта  
  SaveSetting Application.Name, "mail", "smtpserver", "smtp.mail.ru"    ' Ваш SMTPServer  
  SaveSetting Application.Name, "mail", "sendusername", "vasya_pupkin@mail.ru"    ' Ваша учетная запись  
  SaveSetting Application.Name, "mail", "sendpassword", "pup123456"    ' Ваш  пароль  
End Sub  
 
2.    
 
Sub Main()    ' Пример использования функции Send_Mail  
  txt = "Это письмо сформировано макросом" & vbNewLine & _  
         "без использования внешних программ и подключения дополнительных библиотек"  
   If Send_Mail("ivan_ivanov@mail.ru", "vasya_pupkin@mail.ru", "проверка отправки почты", txt) Then  
       MsgBox "Письмо успешно отправлено", vbInformation  
   Else  
       MsgBox "Не удалось отправить письмо", vbExclamation  
   End If  
End Sub  
 
Но при их запуске сразу  выбивает ошибку???

Спасибо!!!!  
А куда вставить:  
 
With cdoConfig.Fields  
   .Item(cdoConfigURL & "sendusing") = 2  
   .Item(cdoConfigURL & "smtpauthenticate") = 1  
   .Item(cdoConfigURL & "smtpserver") = SMTPserver  
   .Item(cdoConfigURL & "sendusername") = sendusername  
   .Item(cdoConfigURL & "sendpassword") = sendpassword  
   ' для отправки почты с аккаунта @gmail.com  
  .Item(cdoConfigURL & "smtpserverport") = 465 'порт для SSL: 465  
  .Item(cdoConfigURL & "smtpusessl") = 1  'использовать аутентификацию: да  
  .Update  
End With