• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

mail atma sorunu

Katılım
15 Ekim 2007
Mesajlar
84
Excel Vers. ve Dili
2003
türkçe
merhaba,
excelden ekteki kodları kullanarak mail atıyorum, fakat aynı outlooka tanımlı 9 farklı hesap kullanıyorum.kodlar yardımı ile hesapları nasıl değiştiririm yada hangi hesapdan atacağımı nasıl tanımlarım. gönderdiğim maillerde oluşturduğum imzam çıkmıyor. bunu nasıl eklerim?

örnek: hesap@deneme.com
ahesabı@deneme.com



Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olTaskItem)
With myItem
.To = "deneme@deneme.com."
.Subject = "deneme""
.body="deneme"
.send
End With
Set ol = Nothing
 
Geri
Üst