Mailin Hangi Adresten Gönderileceğini Belirlemek

[huseyinn31]

Arkadaşlar merhaba,

Youtube 'da yer alan videolarla dosyayı pdf olarak kaydetme ve mail olarak gönderme makrolarını çalışmama uyarladım. Fakat outlook'ta 2 mail adresi kurulu olduğundan ben birisini sadece excelden mail gönderirken kullanmak istiyorum. Mailin gönderileceği adresi nasıl sabit olarak belirleyebilirim?

Teşekkürler.

 

[Korhan Ayhan]

İnceleyiniz.

Soru - PDF Yap Mail Olarak Gönder

Başka bir sorun var demek ki... Şunu deneyiniz; Outlook-Dosya-Seçenekler-Güven Merkezi-Güven Merkezi Ayarları adımlarını izleyin. Açılan menüde "Programlı Erişim" seçeneğine tıklayın. En alttaki seçeneği seçip işlemi tamamlayın. Bu işlemle otomatik gönderim işlemini virüs saldırısı olarak...

www.excel.web.tr

 

[huseyinn31]

İnceleyiniz.

Soru - PDF Yap Mail Olarak Gönder

Başka bir sorun var demek ki... Şunu deneyiniz; Outlook-Dosya-Seçenekler-Güven Merkezi-Güven Merkezi Ayarları adımlarını izleyin. Açılan menüde "Programlı Erişim" seçeneğine tıklayın. En alttaki seçeneği seçip işlemi tamamlayın. Bu işlemle otomatik gönderim işlemini virüs saldırısı olarak...

www.excel.web.tr

Hocam konudaki verdiğiniz 2 örneği de test attım ama ne outlook'a kurulu ikinci mail adresinden ne de hücreye manuel olarak yazdığım mail adresinden gönderemedim.

İlk başta Mail.SendUsingAccount = Uygulama.Session.Accounts.Item(2) kodunu denedim
Sonra şirket bilgileri sheetinin değişkenini tanımlayıp Mail.SendUsingAccount = Uygulama.Session.Accounts(sirketbilgileri.Range("C21").Value) kodunu denedim olmadı.

 

[Korhan Ayhan]

Parantez içindeki sayısal değer sizin outlook üzerinde var olan tanımlı mail adreslerinin item numarasıdır. Buna dikkat etmelisiniz.

Ve yazdığınız satırın başına SET eklemeniz gerekiyor. Verdiğim linki iyi inceleyiniz.

 

[huseyinn31]

Parantez içindeki sayısal değer sizin outlook üzerinde var olan tanımlı mail adreslerinin item numarasıdır. Buna dikkat etmelisiniz.

Ve yazdığınız satırın başına SET eklemeniz gerekiyor. Verdiğim linki iyi inceleyiniz.

Tanımlı olan mail adresinin item numarasını nasıl öğrenebilirim? Çünkü 1 ya da 2 yazdığımda da istediğim mail adresinden mail gitmedi.

Kodun başına set ekleyerek yazdım ama item numarası sorun oldu sanırım.

Set Mail.SendUsingAccount = Uygulama.Session.Accounts.Item(2)

 

[Korhan Ayhan]

Bu kodla tespit edebilirsiniz.

Alıntıdır... (https://www.rondebruin.nl/win/s1/outlook/account.htm)

Sub Which_Account_Number()
'Don't forget to set a reference to Outlook in the VBA editor
    Dim OutApp As Object
    Dim X As Long

    Set OutApp = CreateObject("Outlook.Application")

    For X = 1 To OutApp.Session.Accounts.Count
        MsgBox OutApp.Session.Accounts.Item(X) & " : This is account number " & X
    Next
End Sub

 

[huseyinn31]

Bu kodla tespit edebilirsiniz.

Alıntıdır... (https://www.rondebruin.nl/win/s1/outlook/account.htm)

Sub Which_Account_Number()
'Don't forget to set a reference to Outlook in the VBA editor
    Dim OutApp As Object
    Dim X As Long

    Set OutApp = CreateObject("Outlook.Application")

    For X = 1 To OutApp.Session.Accounts.Count
        MsgBox OutApp.Session.Accounts.Item(X) & " : This is account number " & X
    Next
End Sub

Item numarası 2 'ymiş aslında 2 yazarak da denemiştim.

Kodu yanlış yazıyor olabilirim diyerek incelemenizi rica edebilir miyim?

Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)


With Mail
Set Mail.SendUsingAccount = Uygulama.Session.Accounts.Item(2)
Mail.To = Mail_Adresi_To
Mail.Subject = mailkonu
Mail.Body = "Sayın " & adisoyadi & "," & vbNewLine & vbNewLine
Mail.Body = Mail.Body & mailkonu & "nu ek'te bulabilirsiniz." & vbNewLine & vbNewLine
Mail.Body = Mail.Body & "Saygılarımızla," & vbNewLine
Mail.Body = Mail.Body & "Müdürlük İsmi"
Mail.Attachments.Add (dosyaadi)
Mail.Send
End With

On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End If
End Sub

 

[Korhan Ayhan]

Uygulama yerine Makro yazıp deneyiniz.

 

[huseyinn31]

Uygulama yerine Makro yazıp deneyiniz.

Teşekkürler hocam, makro olarak değiştirince mail gitti