Çözüldü Excel eposta göndermede göndericiyi değiştirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
16
En İyi Yanıtlar
1
Beğeniler
4
Puanları
3
Yaş
29
Konum
Bursa
Ad Soyad
Fatih
#1
Selamünaleyküm.
Aşağıda exelden belli bir alanı ("A1:G10") mail olarak göderebiliyorum, takıldığım nokta outlooğumda birden fazla hesap var ben gönderici olarak mail hesabımı seçmek için aşağıda kodlara ne eklemeliyim, örnek varsayılan hesap aaaa@hotmail.com ben aşağıdaki makro ile mail göndereceğim zaman xxxxx@hotmail.com ile göndermek istiyorum bu değişikliği nasıl yaparız makro ile...

VBA:
Sub email()
 Dim aktifsayfa As Worksheet
    Dim alan As Range
    Dim hucre As Range
    Set alan = Sayfa1.Range("A1:G10")
    Set aktifsayfa = ActiveSheet
    With alan
        .Parent.Select
        Set hucre = ActiveCell
        .Select
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            .Introduction = Sayfa1.Range("K3").Value2
            
            With .Item
                .To = Sayfa1.Range("K1").Value2
                '.CC = ""
                '.BCC = ""
                .Subject = Sayfa1.Range("K2").Value2
                '.Display
                .Send
            End With

        End With
        hucre.Select
    End With
    aktifsayfa.Select

End Sub
 

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
16
En İyi Yanıtlar
1
Beğeniler
4
Puanları
3
Yaş
29
Konum
Bursa
Ad Soyad
Fatih
#2
Kod:
.SendUsingAccount olApp.session.accounts.Item(1)
ile çözüldü..
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt