Makro ile gönderide MS Outlook Uyarı Mesajı

[bayram]

Aşağıdakli kodları kullanarak mail gönderiyorum. Ama
MS Outlook uyarı mesajı veriyor. "Gönderi yapılmak isteniyor kabul ediyormusun. gibi". Bu uyarı mesajını almadan nasıl yapabilirim.
Application.DisplayAlerts = False -- Kullandım olmuyor.
Saygılar.

Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem


For T = 0 To 52
If Worksheets("YARDIM").Cells(6 + T, 2) <= Date Then
If Worksheets("YARDIM").Cells(6 + T, 3) >= Date Then
HAFTA = Worksheets("YARDIM").Cells(6 + T, 4)
End If
End If
Next T

For P = 0 To 1
If Worksheets("Firma İçi").Cells(6 + P, 7) < HAFTA Then
If Worksheets("Firma İçi").Cells(6 + P, 10) = "" Then

Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "xxxxxxxx@xxxxx"
.Subject = "cccccccccc"
.Body = "dddddddd "
'.Attachments.Add "C:\Test.xls"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing

End If
End If
Next P

 

[red_lion_72]

Sub exchangemesajgonderme()
    Dim iMsg As Object
    Dim iConf As Object

     
    Application.ScreenUpdating = False
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
        iConf.Load -1   
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "buraya exchangenizin ip sini yada adını girin örn:192.1.1.1 yada ismi örn:exchangeser"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With
 
    With iMsg
        Set .Configuration = iConf
        .To = "gidecek kişinin mail adresini buraya yazın örn:wakkassss@gmail.com"
        .CC = ""
        .BCC = ""
        .From = """kimden"" <wakkassss@gmail.com>"
        .Subject = "konu"
        .TextBody = "mesaj içeriği"
         ad = Sayfa2.Range("A1")       
       .AddAttachment "C:\" & ad & ".XLS"
         'burada ben sayfa2 a1 hücresindeki isimli dosyayı ataçlıyorum siz istediğiniz bir dosyayı yazmak isterseniz onun yolunu yazın....
        .Send
    End With
 
    Set iMsg = Nothing
    Set iConf = Nothing
    Application.ScreenUpdating = True
End Sub

yalnız bir teknokta önemli exchange'nizin IP adresini bilmeniz gerekli....

 

[bayram]

Hocam bu exchangenizin ip'sini nereden bulabilirim. NT 2003 server üzerinden -Windows XP- MS Outlook 2000

 

[red_lion_72]

"Lütfen sistem yöneticinizle bağlantı kurun" Microsoft mesajları gibi oldu....Sistem yöneticinize bir sorun isterseniz. Muhtemelen o size söyleyecektir.

 

[bayram]

Yardımların için teşekkürler IP'yi alınca deneyeceğim.

 

[bayram]

WAKKASSSS HOCAM ELİNE SAÐLIK SÜPER ÇALIÞIYOR. KENDİME GÃ?RE AYARLADIM YANLIZ, AÞAÐIDAKİ SATIR HATA VERDİ, BENDE SİLDİM. İLERİDE SORUN YARATMAZ Dİ Mİ.

iConf.Load -1

 

[red_lion_72]

Selam,

Sevgili Bayram, kodlar bana ait değil daha önce forumda sevgili Alpen arkadaşımızın verdiği linkten uyarlamıştım bu kodları. Üzerinde bir iki ufak değişiklik yaptım sadece. O zaman teşekkür edememiştim. Bu vesile ile bende teşekkür edeyim Sevgili Alpen'e.

http://www.rondebruin.nl/sendmail bu siteden almıştım. bu sitede farklı çözümler de var eğer istersen bir göz at.

Kolay gelsin.

 

[bezl]

http://www.rondebruin.nl/sendmail.htm