Ağ İçi Mesajlaşma Programı - AGİP

NET SEND ve MSG komutları ile Ağ üzerinde ileti göndermeye yarayan Excel Vba programıdır.

Programın çalışabilmesi için, dosya açılışında Makrolar etkin ve Bilgisayar Yönetimi ekranında bulunan Hizmetler listesinden Messenger hizmetinin aktif olması gereklidir.


Programı indirmek için tıklayın.




Eğer Messenger hizmeti aktif değilse,
Bilgisayarım'a sağ tıklayıp Yönet'i seçin ve aşağıdaki ekranı görüntüleyin;

Outlook Kullanmadan Gmail Hesabımızdan CDO SMTP Mail Göndermek

Outlook programını kullanmadan, Gmail hesabımızdan CDO SMTP kullanarak, mail göndermek için aşağıdaki kodları kullanabilirsiniz:

Sub Excelce_Gmail()
Dim iMsg, iConf, Flds
On Error GoTo Son
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = http://schemas.microsoft.com/cdo/configuration/
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "Gmail kullanıcı adı" ' Örnek: excelce.net
Flds.Item(schema & "sendpassword") = "Gmail şifresi" ' Örnek: 1234
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "excelce.net@gmail.com" 'Alıcı adresi
.From = "Gönderen adı"
.Subject = "Başlık"
.HTMLBody = "İçerik"
.Organization = "Mail Organtion"
Set .Configuration = iConf
SendEmailGmail = .Send
Son:
End With
End Sub

Excelce Makro Başlangıç Görsel Anlatım – 1 (Form oluştur, nesne ekle, kod ata)

Neler var?

-Sayfaya Düğme/Buton ekleme,
-Düğmeye kod yazma, atama,
-Makro ile Excel hücresine yazı yazma, okuma,
-UserForm oluşturma, forma nesne ekleme, kod atama
-UserForm’dan sayfaya kayıt ve veri okuma vs…

 Görüntülü anlatımı buradan izleyebilirsiniz.