Makro ile mail gönderme konusunda yardım

[andruil]

Merhaba,

Aşağıdaki gibi bir kod oluşturdum. Kod şu an istediğim gibi çalışıyor fakat tek eksiğim şu;

Outlook'umda ayarlı 3 farklı mail adresi var. Ben hangi mail adresinden göndermesi gerektiğini de otomatikleştirmek istiyorum fakat eklemem gereken satırı ya da kodu bilmiyorum.

Yardımınızı rica ederim, teşekkürler şimdiden.

Sub SendEmail()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
    
    
    With olMail
    
    .BodyFormat = olFormatHTML
    .Display
    .HTMLBody = "Sayın İlgili," & "<br>" & "<br>" & _
    Range("B5:B5").Value & .HTMLBody
    
    
    .To = Range("B2:B2").Value
    .Subject = Range("B3:B3").Value
    
        
    End With
    
    
End Sub

 

[turist]

End With satırından önce;

 .SendUsingAccount = OutApp.Session.Accounts.Item(1)

olarak ekleyin.
(1)
kısmını OutLook'taki hesaplarınızın sırasına göre belirleyebilirsiniz.

 

[andruil]

End With satırından önce;

 .SendUsingAccount = OutApp.Session.Accounts.Item(1)

olarak ekleyin.
(1)
kısmını OutLook'taki hesaplarınızın sırasına göre belirleyebilirsiniz.

Buraya yazdıktan sonra araştırmaya devam ettiğimde belirttiğiniz kodu buldum. Denediğimde istediğim mailden atmama imkan sağlıyor, evet. Fakat şöyle bir durum var. Bu excel iş yerinde ortak kullanımda olan bir dosya. Kullanılan ortak email adresinin de, hangi bilgisayarda kaçıncı sırada olduğu belli değil.

Spesifik olarak adres yazılması mümkün müdür acaba?

 

[baydeniro]

andruill ve turist kod için teşekkürler. Aradığım bir şeydi. Ama bende çalışmadı. Acaba referans etkisi olabilir mi ?
1) .Item(2) ve .Item(3) yazsam da Outlook ta tanımlı olan varsayılan hesabı seçiyor.
2) Display ekranı gelmeden direkt gönderim mümkün mü ?

 

[uKiGS]

Merhaba,

Aşağıdaki gibi bir kod oluşturdum. Kod şu an istediğim gibi çalışıyor fakat tek eksiğim şu;

Outlook'umda ayarlı 3 farklı mail adresi var. Ben hangi mail adresinden göndermesi gerektiğini de otomatikleştirmek istiyorum fakat eklemem gereken satırı ya da kodu bilmiyorum.

Yardımınızı rica ederim, teşekkürler şimdiden.

Sub SendEmail()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
    
    
    With olMail
    
    .BodyFormat = olFormatHTML
    .Display
    .HTMLBody = "Sayın İlgili," & "<br>" & "<br>" & _
    Range("B5:B5").Value & .HTMLBody
    
    
    .To = Range("B2:B2").Value
    .Subject = Range("B3:B3").Value
    
        
    End With
    
    
End Sub

Merhaba,

Bende kullanıyorum böyle bir excel bendekinde olan formül bu bi deneyin isterseniz.

.SentOnBehalfOfName = "istediğinizmailadresi@mail.com"

yukarıda yazılı olan yere hangi mailden gitmesini isterseniz orayı yazabilirsiniz.

İyi çalışmalar.