Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  iConf.Load - 1     ' CDO Source Defaults
  Set Flds = iConf.Fields
  With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25 
    .Update
  End With
    If adress <> "" Then
     With iMsg
        Set .Configuration = iConf
        .To = Trim(adress) 'кому
        .CC = Cop 'копия
        .BCC = ""
        .From = """Сергей"" <xxx@xxxxxx.xxx.ru>;"
        .subject = ConvertCodePage(MessageSubject, koi, win)
        .TextBody = ConvertCodePage(MessageBody, koi, win)
        .AddAttachment PDFFile(i)
        .Send
     End With
     
     Set iMsg = Nothing
     Set iConf = Nothing
    Else
    MsgBox "Письмо не отправленно: " & Chr( 13 ) & "Для него нет e-mail"
    End If