Makro ile Meil Göndermede KİMDEN adresini belirtme

[buyocan]

İyi günler benim sorum makro ile meil göndermede şöyle bir kodum var;

Sub Meil_Gönderme()

Dim Makro As Object
Dim Mail As Object

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

On Error Resume Next
With Mail
' KİMDEN : buraya
.To = ""
.CC = ""
.BCC = ""
.Subject = "Test Deneme"
.Body = "İyi çalışmalar."
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub


Sorum şu Outlok'ta 3 tane meil adresi ekli ben makroya nasil bir kod ilave etmem lazım ki kimden kısmı aktif olup seçtiğim adresten otomatik gönderebileyim. Şimdiden yardım eden arkadaşlara teşekkürler.


http://dosya.co/hribfbqrm5cb/Kimden.JPG.html

 

[uKiGS]

.SentOnBehalfOfName = mail adresiniz.

bunu eklerseniz istediğiniz mail adresi ile gönderebilirsiniz.

 

[buyocan]

.SentOnBehalfOfName = mail adresiniz.

bunu eklerseniz istediğiniz mail adresi ile gönderebilirsiniz.

Yardımınız için öncelikle teşekkürler ama şöyle bir hata verdi.

Aşağıdaki alıcılara veya gruplara teslim edilemedi:

XXX@gmail.com
İzni olmadan bu gönderenin adına ileti gönderemezsiniz. Lütfen doğru gönderen adına ileti gönderdiğinizden emin olun veya gereken izni isteyin. Sorun devam ederse, lütfen yardım masanıza başvurun.

Fakat .display satırını ekleyip oradan değiştirdiğimde gidiyor. Acaba nerede sorun ?

 

[uKiGS]

Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
    Dim Alan As Range
    Dim daralan As Range

    If Cells(2, 11) = "" Then GoTo HATA

    On Error GoTo HATA

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    saydir = Sayfa1.Range("B" & Rows.Count).End(3).Row
    DinamikAlan = "B2:" & "H" & saydir
    Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)
    
    Set Sayfa = ActiveSheet

    With Alan

        .Parent.Select
        Set daralan = ActiveCell

        .Select
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            
            .Introduction = "Merhaba," & _
            vbCrLf & " Liman sahasında bulunan gümrük ve stok araç adetleri marka ve model bazında aşağıdaki tabloda bilginize sunulmuştur." & _
            vbCrLf & " Saygılarımızla,"
             With .Item
                .SentOnBehalfOfName = "mailadresi@mail.com"
                .To = Cells(2, 11)
                .CC = Cells(3, 11)
                .BCC = Cells(4, 11)
                .Subject = Cells(1, 11)
                .send
            End With

        End With

        daralan.Select
    End With
    
    Sayfa.Select

HATA:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   

End Sub

Benim kullandığım kod bu. isterseniz dosyayı ekleyin bir bakayım burada ustalardan öğrendiğimiz kadarıyla birşeyler yapabilirsem yapayım ki ben yapamazsam zaten yapacak arkadaş çıkacaktır emin olun

 

[buyocan]

Makrodaki kodlar yukarıdakilerden başka yok. Acaba izin verilmesi gereken başka bir yer mi var?

 

[byguvezz]

Bende de aynı ihtiyaç söz konusu. Yukarıdaki yöntemi denedim ancak varsayılan adresten gönderiyor yine de. Fakat alıcıda durum tam olarak şöyle gözüküyor:
"XXX XXXXX<xxxx.xxxx@xxxxholding.com.tr>; gönderdi; adına gönderilen:; <ik@xxxxholding.com.tr>"
Yani ben ik hesabından mail gitsin istiyorum ancak şahsi hesabı kullanıyor. Bir çaresi var mıdır acaba?

 

[lon_tokyo]

Selamlar,

gonderilen mailler, outlook'ta varsayilan hesabinizin sent klasorunde kalacak ama gonderen adres sizin secmis oldugunuz adrestir herhangi bir karsi yanitlamada ise mail kullanmis oldugunuz hesabiniza gelecektir.

Saygilar

 

[metehan8001]

Alternatif olarak aşıdaki kodu kodlarınızın arasındaki .display satırın üstüne yazınız.
Outlook'ta 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 yeterli.