Toplu mail atma

[numan şamil]

Merhaba
Mail konusuna yeni uğraşmaya başladım
Aşağıdaki kodlarda istediğim şekilde mail atabiliyorum
Sadece gönderilen mailler giden kutusunda görülmüyor
Bunun gözükmesi için kodlara ne eklemem gerekiyor veya ne yapmam gerekiyor

Sub TopluManuel ()
Dim S1, S2 As Worksheet
Set S1 = Sheets("MAİL-LİSTESİ")
Set S2 = Sheets("MAİL")
For i = 5 To S2.Cells(Rows.Count, "F").End(xlUp).Row
If Not S2.Cells(i, "G") = "" Then
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    If CreateObject("Scripting.FileSystemObject").FileExists(S2.Range("E" & i).Value) = False Then MsgBox (S2.Range("E" & i).Value & Chr(10) & "Eklenecek dosyayı bulamadı"): Exit Sub
    On Error Resume Next
    With OutMail         
        .To = S2.Cells(i, "F").Value.
        .CC = ""
        .BCC = ""       
        .Attachments.Add S2.Range("E" & i).Value
        .Subject = S2.Range("K2").Value 'Konu kısmını yazdığımız yerden alıyoruz.
        .Body = S2.Range("K3").Value 'Gövde metni kısmını yazdığımız yerden alıyoruz.
'        .SendUsingAccount = OutApp.Session.Accounts.Item(3)
       ' .Display
      ‘ .Save
        .Send   'or use .Display
        .OriginatorDeliveryReportRequested = True
         Say = Say + 1
        S2.Cells(i, "I") = "Evet"
                S2.Cells(i, "J") = Format(Date, "dd/mm/yyyy")               
    End With
    On Error GoTo 0
        Set OutMail = Nothing
    Set OutApp = Nothing
End If
Next i
 MsgBox "İşleminiz tamamlanmıştır." & vbNewLine & "Toplam gönderilen mail sayısı ; " & Say
End Sub

 

[Haluk]

Bende Outlook olmadığı için deneme şansım yok ama siz .save satırının başındaki kesme işaretini kaldırıp, dener misiniz?

.

 

[numan şamil]

Bende Outlook olmadığı için deneme şansım yok ama siz .save satırının başındaki kesme işaretini kaldırıp, dener misiniz?

.

Merhaba Haluk Hocam
.Save Aktifleştirip birkaç kez daha öncede denemiştim ancak
Gönderilmiş öğelerde nede taslakta görülüyor.
Ancak mail gidiyor

 

[Korhan Ayhan]

Merhaba,

Kod dışında elle mail gönderdiğinizde giden kutusunda görebiliyor musunuz?

Göremiyorsanız genel posta ayarlarınızı kontrol etmeniz gerekebilir.

 

[numan şamil]

Merhaba,

Kod dışında elle mail gönderdiğinizde giden kutusunda görebiliyor musunuz?

Göremiyorsanız genel posta ayarlarınızı kontrol etmeniz gerekebilir.

Kod dışında elle mail gönderdiğimde giden kutusunda görebiliyorum

 

[numan şamil]

Arkadaşlar
"Set OutMail = OutApp.CreateItem(olMailItem))"
"Set evnmailitem = evnout.CreateItem(0)"

Burda "CreateItem(olMailItem))" ile "CreateItem(0)" arasındaki fark nedir

 

[numan şamil]

Arkadaşlar
"Set OutMail = OutApp.CreateItem(olMailItem))"
"Set evnmailitem = evnout.CreateItem(0)"

Burda "CreateItem(olMailItem))" ile "CreateItem(0)" arasındaki fark nedir

Açıklayacak arkadaşlar varmı?

 

[turist]

OlItemType Numaralandırma (Outlook)

Outlook öğe türünü gösterir.

isim değer Açıklama
olAppointmentItem 1 AppointmentItem nesnesi.
olContactItem 2 ContactItem nesnesi.
olDistributionListItem 7 DistListItem nesnesi.
olJournalItem 4 JournalItem nesnesi.
olMailItem 0 MailItem nesnesi.
olNoteItem 5 NoteItem nesnesi.
olPostItem 6 PostItem nesnesi.
olTaskItem 3 TaskItem nesnesi.



"CreateItem(olMailItem))" ile "CreateItem(0)" arasında fark yoktur.

 

[numan şamil]

OlItemType Numaralandırma (Outlook)

Outlook öğe türünü gösterir.

isim değer Açıklama
olAppointmentItem 1 AppointmentItem nesnesi.
olContactItem 2 ContactItem nesnesi.
olDistributionListItem 7 DistListItem nesnesi.
olJournalItem 4 JournalItem nesnesi.
olMailItem 0 MailItem nesnesi.
olNoteItem 5 NoteItem nesnesi.
olPostItem 6 PostItem nesnesi.
olTaskItem 3 TaskItem nesnesi.



"CreateItem(olMailItem))" ile "CreateItem(0)" arasında fark yoktur.

Teşekkürler

 

[Korhan Ayhan]

Sorununuz çözüldü mü bilmiyorum ama aşağıdaki linkte bazı işlemler tarif edilmiş. Deneyiniz.

https://support.microsoft.com/tr-tr/help/2958272/email-sent-using-outlook-are-not-saved-to-the-sent-items-folder

 

[numan şamil]

Sorununuz çözüldü mü bilmiyorum ama aşağıdaki linkte bazı işlemler tarif edilmiş. Deneyiniz.

https://support.microsoft.com/tr-tr/help/2958272/email-sent-using-outlook-are-not-saved-to-the-sent-items-folder

Korhan Bey
İlginiz için çok teşekkür ederim
Deneyeceğim