Sorgu için arama sonuçları: SendUsingAccount

  1. A

    MsExcelden MsOutlooktaki Varsayılan Mail Adresini Değiştirme

    ...If Outlook_App.Session.Accounts.Item(X) = "deneme@deneme.com" Then X1 = X End If Next With Outlook_Mail Set .SendUsingAccount = Outlook_App.Session.Accounts.Item(X1) .To = "deneme@deneme.com" 'Gönderilecek Adres .CC = "" .BCC = "" .Subject = "Deneme Mail Değişiklik" 'Konu .Body = ""...
  2. Korhan Ayhan

    MsExcelden MsOutlooktaki Varsayılan Mail Adresini Değiştirme

    Forumda arama yapmak faydalı olabilir.. https://www.excel.web.tr/search/397102/?q=SendUsingAccount&o=date
  3. Korhan Ayhan

    Makro ile Mail gönderirken mail hesabı seçimi

    İnceleyiniz. https://www.excel.web.tr/search/374612/?q=SendUsingAccount&o=date
  4. M

    Soru Mail düzenleme

    ...+ Chr(10) + mail_text + Chr(10) + Chr(10) + "Kontrol etmenizi rica ederim." + Chr(10) + Chr(10) + "İyi Çalışmalar" '.SendUsingAccount = OutlookApp.Session.Accounts("xxxxx@hotmail.com")'eklemek istersen mail adresini yaz .Send End With Set OutlookMail = Nothing...
  5. R

    Mail Gövdesine Tablodan Ayrı Ayrı Bölümleri Alma

    Yardımınız için teşekkürler.
  6. H

    Kaydedilen PDF 'lerin Sıralı Bir Şekilde Mail Gönderilmesi

    ...epostaeki = Dir(dosyaadi) If epostaeki <> "" Then On Error Resume Next With Mail Set Mail.SendUsingAccount = Makro.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...
  7. H

    Mailin Hangi Adresten Gönderileceğini Belirlemek

    ...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...
  8. H

    Mailin Hangi Adresten Gönderileceğini Belirlemek

    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)
  9. H

    Mailin Hangi Adresten Gönderileceğini Belirlemek

    ...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 =...
  10. Korhan Ayhan

    Soru PDF Yap Mail Olarak Gönder

    Item numarası yerine hücre adresini yazmanız yeterli olacaktır. Set .SendUsingAccount = Uygulama.Session.Accounts.Item(S2.Range("E15").Value) Ek olarak sanırım aşağıdaki gibi de olabiliyor. Veri sayfasında E15 hücresine mail adresini yazınız. Tabi bu hesabın tanımlı olması gerekiyor. Set...
  11. Korhan Ayhan

    Soru PDF Yap Mail Olarak Gönder

    O kısmı şu şekilde deneyiniz. Set .SendUsingAccount = Uygulama.Session.Accounts.Item(2)
  12. H

    Soru PDF Yap Mail Olarak Gönder

    Korhan bey merhabalar; Aşağıdaki kodun işaretli kısmında hata veriyor. .SendUsingAccount = Uygulama.Session.Accounts.Item(2) Option Explicit Sub MAIL_GONDERdosya() Dim S1 As Worksheet, S2 As Worksheet Dim Uygulama As Object, Yeni_Mail As Object Dim Yol As String...
  13. H

    Soru PDF Yap Mail Olarak Gönder

    Korhan bey, SendUsingAccount = Uygulama.Session.Accounts.Item(2) Gönderenin hesabını Veri sayfadından E3 hücresinden alabilir mi?.
  14. Korhan Ayhan

    Soru PDF Yap Mail Olarak Gönder

    Seçebilirsiniz.. Deneyiniz. Kırmızı renkli sayı ile oynayarak hesap seçimi yapabilirsiniz. With Yeni_Mail .SendUsingAccount = Uygulama.Session.Accounts.Item(2) .To = S2.Range("E9").Value .Subject = S2.Range("E10").Value .HtmlBody = S2.Range("E11").Value &...
  15. B

    mail body kısmına logo ekleme

    ....BCC = "" .Subject = ThisWorkbook.Sheets("Tablo").Range("j3").Value .HTMLBody = RangetoHTML(rng) .SendUsingAccount = OutApp.Session.Accounts.Item(k) .Display End With On Error GoTo 0 With Application .EnableEvents = True...
  16. N

    Toplu mail atma

    ...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 =...
  17. metehan8001

    Makro ile Meil Göndermede KİMDEN adresini belirtme

    ...tanımlanmış hangi mail adresiniz ile kullanmak isterseniz, buradaki koddaki son numarayı değiştirmeniz yeterli olacaktır. .SendUsingAccount = OutApp.Session.Accounts.Item(3) 'Outlook'ta tanımlanmış hangi mail adresiniz ile kullanmak isterseniz *************, buradaki numarayı değiştirmeniz...
  18. B

    Otomatik Mailde From (İkincil Mail Adresi) Hatası

    ...mevcuttur.<br>" & _ "<br>Bilgilerinize arz ederiz.<br>" & RangetoHTML(Alan) & .Htmlbody .SendUsingAccount = OutApp.Session.Accounts.Item(Range("M2").Value) '.Send End With Next .ShowAllData End With...
Üst