ya çalışıyo diye verilmişti ama gerçektende çalışmıyor çalışanı olan var mı ya varsa bir arkadaşımız yayınlasın da bizlerde faydalanalım

Kodlar'da Eksik'lik Var Galiba, Bunun Projeli Hali Var ise Onu Upload Ett Bi Bakalım, Böyle Hata Verdii -- ..

bu kodu denedin mi yani gerçekten mail gönderiyomu bendede bisürü e mail gönderme kodu var hiç biri çalışmıyo.

ARKADAŞLAR ELİMDE E POSTA GÖNDERME PROĞRAMI VAR ANCAK BEN BUNU KULLANIRKEN EMAİL GÖNDERDİĞİM KİŞİNİN O EMAİLİNİ YALNIZ KENDİSİNE GÖNDERİLMİŞ ZANNETMESİNİ İSTİYORUM BUNUN İÇİN GİDECEK ADRES BÖLÜMÜNÜ ÇOĞALTMAK VE BİRBİRİNE EKLEMEK İSTİYORUM KISACASI TEK TIKLA BİRDEN ÇOK KİŞİYE EMAİL GÖNDERİP HİÇBİRİNİN BİRBİRİNDEN HABERİNİN OLMAMASINI NASIL SAĞLARIM KODU NEDİR? With MAPImessages1. Compose msgindex = -1 olur. RecipDisplayName = "Murat Ustaoğlu" . RecipAddress = "ustaoglu@yahoo.com" . AddressResolveUI = True Adres için kullanıcı kontrolu. ResolveName. MsgSubject = "Bilgilendirme" . MsgNoteText = "Bugünkü toplantı iptal edildi" . AttachmentpathName = "C:\Aciklama. txt" . Send = False Gönder End With Private Sub PostaGonder_Click MAPISession1. DownLoadMail = False MAPISession1. LogonUI = True MAPISession1. SignOn DoEvents If MAPISession1. SessionID = 0 Then SendMAPIMail = False MsgBox "MAPI Başlatılamadı.", vbCritical, "MAPI" Exit Sub End If MAPIMessages1. SessionID = MAPISession1. SessionID With MAPIMessages1. MsgIndex = -1. Compose '. RecipIndex = 0 '. RecipType = mapToList '. RecipDisplayName = "Mehmet Yılmaz" . RecipAddress = mehmet14@bedavamail.com ' Adres_TextBox. Text '. AddressResolveUI = False '. ResolveName '. RecipIndex = 1 '. RecipType = mapCcList '. RecipAddress = CCAdresi '. ResolveName. MsgSubject = "Toplantı Hakkında" ' Konu_TextBox. Text. MsgNoteText = "Toplantı ertlenmistir..." ' Icerik_TextBox. Text '. AttachmentPathName = "C:\Aciklama. txt" . Send End With MAPISession1. SignOff End Sub