ایمیل فایل اکسل به صورت ضمیمه در اوت لوك

[ali.b]

ببخشید اشتباه شد به صورت ضمیمه در outlook برای ایمیل

Sub EMAILLIST()
 
    Dim cell As Object
    Dim NR As Long
    Dim tagerror As String
    Dim Email_Send_To, Email_Send_From, Email_Subject, Email_Body As String
    Dim strUserEmail As String
    Dim strFirstClassPassword As String
    Dim errPar As String
    Dim iMsg As Object
    Dim iConfig As Object
    Dim sConfig As Variant
    Dim Row As Integer
    Dim Atc As String
   
   
    Set xBook = activeworkbook
    Set iSh = xBook.Sheets("INPUT")
   
       
    strUserEmail = xBook.Sheets("INPUT").Range("MMAIL")
    strFirstClassPassword = ""
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConfig = CreateObject("CDO.Configuration")
    iConfig.Load -1
    Set sConfig = iConfig.Fields
       
        With sConfig
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.5" 'Name or IP of remote SMTP server
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  'Server Port
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUserEmail
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strFirstClassPassword
            .Update
        End With
    
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With