Mail Gönderme de Sorun

[ahmed_ummu]

Merhaba arkadaşlar.

Ekte gönderdiğim dosyada Kodlarda bir sorun çıkmıyor. Ve en sonunda "Mail başarıyla gönderildi" mesajını veriyor ama gönderdiğim mesajlar gitmesi gereken mail adreslerine gitmiyor. Yardımcı olursanız çok sevinirim.

 

[bydogannn67]

Merhaba, bende outlook kurulu, deneme yaptığımda sorun göremedim

 

[ahmed_ummu]

Maili göndermeden önce outlook'u açıyor.

Dim OutlookApp As Object

On Error Resume Next

Set OutlookApp = GetObject(, "Outlook.Application")


If OutlookApp Is Nothing Then
Set OutlookApp = CreateObject("Outlook.Application")
End If

On Error GoTo 0


If Not OutlookApp Is Nothing Then
MsgBox "Outlook uygulaması başarıyla açıldı.", vbInformation
Else
MsgBox "Outlook uygulaması açılamadı. Lütfen Outlook'un açık olduğundan emin olun.", vbExclamation
End If

Yukarıdaki kod ile outlook un açılıp açılmadığını kontrol ediyor ve ir sorun çıkmıyor.

Aşağıdaki kod bloğunda "e posta gönderilirken hata oluştu" uyarısı veriyor. Hata kodu 287

On Error Resume Next
Set OutlookApp = GetObject(, "Outlook.Application")
If OutlookApp Is Nothing Then Set OutlookApp = CreateObject("Outlook.Application")
On Error GoTo 0

Set MailItem = OutlookApp.CreateItem(0)

With MailItem
.To = "geçerliemail@example.com"
.Subject = "Test E-postası"
.Body = "Bu bir test e-postasıdır."


On Error Resume Next
.Send


If Err.Number <> 0 Then
MsgBox "Mail gönderiminde hata oluştu: " & Err.Description & vbCrLf & "Hata numarası: " & Err.Number, vbExclamation
Err.Clear
Else
MsgBox "Mail başarıyla gönderildi.", vbInformation
End If
On Error GoTo 0
End With

 

[pitchoute]

Şu şekilde deneyip sonucu paylaşabilir misiniz;

Dim OutlookApp As Object
Dim MailItem As Object

On Error Resume Next
Set OutlookApp = GetObject(, "Outlook.Application")
If OutlookApp Is Nothing Then Set OutlookApp = CreateObject("Outlook.Application")
On Error GoTo 0

If Not OutlookApp Is Nothing Then
    Set MailItem = OutlookApp.CreateItem(0)
    With MailItem
        .To = "geçerliemail@example.com"
        .Subject = "Test E-postası"
        .Body = "Bu bir test e-postasıdır."
        .Display ' E-postayı görüntüler, manuel olarak gönderebilirsiniz
    End With
    MsgBox "E-posta oluşturuldu ve görüntülendi.", vbInformation
Else
    MsgBox "Outlook uygulaması açılamadı. Lütfen Outlook'un yüklü ve doğru şekilde çalıştığından emin olun.", vbExclamation
End If

 

[ahmed_ummu]

Şu şekilde deneyip sonucu paylaşabilir misiniz;

Dim OutlookApp As Object
Dim MailItem As Object

On Error Resume Next
Set OutlookApp = GetObject(, "Outlook.Application")
If OutlookApp Is Nothing Then Set OutlookApp = CreateObject("Outlook.Application")
On Error GoTo 0

If Not OutlookApp Is Nothing Then
    Set MailItem = OutlookApp.CreateItem(0)
    With MailItem
        .To = "geçerliemail@example.com"
        .Subject = "Test E-postası"
        .Body = "Bu bir test e-postasıdır."
        .Display ' E-postayı görüntüler, manuel olarak gönderebilirsiniz
    End With
    MsgBox "E-posta oluşturuldu ve görüntülendi.", vbInformation
Else
    MsgBox "Outlook uygulaması açılamadı. Lütfen Outlook'un yüklü ve doğru şekilde çalıştığından emin olun.", vbExclamation
End If

Cevabınız için teşekkürler sayın pitchoute. Kodların çalışmasında yine bir sorun çıkmıyor "e posta oluşturuldu ve görüntülendi" mesajı çıkıyor ama gönderdiğim mail adresine posta gitmiyor. (posta gönderme iletisi) görüntüsünü de gönderiyorum. Dosyanın en son halini gönderiyorum. Size zahmet olacak ama bakabilir misiniz. Kusura bakmayın cevabı geç gönderdim dosya işyerindeki bilgisayarda.