• DİKKAT

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

Excell-lotus mail göndermek

K

koryokos

Katılım
22 Ekim 2010
Mesajlar
5
Excel Vers. ve Dili
Excel 2007
ingilizce
Merhabalar,
Excell de basit olarak bir tablo yaptım : sheet1 deki tablodan sheet2 deki verileri çıkartılıp sheet3 e formüllüyor.sheet3 teki tabloyu buton ile tıklayarak 3-5 kişiye lotus notes'ta mail göndermek istiyorum.Mümkünmüdür nasıl yapabilirim.Şimdiden teşekkürler...
 
Merhabalar,
Bahsettiğim dosya ekteki gibidir.Yapmak istediğim sayfada mail butonuna tıkladığım zaman.İlgili kişilere lotustan mail göndermek.Linkleri inceledim fakat hata veriyor.Biryerde yanlışlık yapıyorum sanırım.Teşekkürler...
 

Ekli dosyalar

arkadaşlar maili başarı ile gönderiyorum fakat komutları kayıt edemiyorum dosyayı kapatıp açınca komut boş geliyor.kayıt ederken ekli resimdeki hatayı veriyor bununla ilgilimi acaba.
 

Ekli dosyalar

  • hatamsg.png
    hatamsg.png
    5.8 KB · Görüntüleme: 11
Son düzenleme:
Yukaruda belirttiğiniz Otomatik çay sipariş içerisindeki kodlar otomatik olarak mailinizi gönderiyormu?
Başka kodmu kullanmdınız.?
 
Hayır aşağıdaki kodları kullanıyorum.Kodları başka bir excell dosyasında çalıştırıyorum.aynı dosyada çalıştırınca gönderir mi? denemedim.Sadece girdiğim e mail adresine gönderiyor çoklu mail göndermek için virgül kullandım olmadı ne yapabilirim bilen varmı...



Sub EmailFile()
' Declare Variables for file and macro setup

Dim UserName As String
Dim MailDbName As String
Dim Maildb As Object
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj1 As Object

' Open and locate current LOTUS NOTES User

Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAIL
End If

' Create New Mail and Address Title Handlers

Set MailDoc = Maildb.CreateDocument

MailDoc.Form = "Volkan YILMAZ"
MailDoc.SendTo = "xxxxxxxxxx@hotmail.com"


MailDoc.Subject = "DOGADAN-BOTANY Otomatik Siparis"
MailDoc.Body = _
"Ekli dosyadaki siparisler otomatik olarak olusturulmustur."

' Select Workbook to Attach to E-Mail

MailDoc.SaveMessageOnSend = False
attachment1 = "C:\Documents and Settings\vyilmaz\Desktop\ATEAS.xls" ' Required File Name

If attachment1 <> "" Then
On Error Resume Next
Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
Set EmbedObj1 = AttachME.embedobject(1454, "attachment1", "C:\Documents and Settings\vyilmaz\Desktop\ATEAS.xls", "") 'Required File Name
On Error Resume Next
End If

MailDoc.PostedDate = Now()
On Error GoTo errorhandler1
Call MailDoc.Save(True, True)

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing

errorhandler1:

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing

With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub
 
Bu konu banada lazımdı.Bu komutlarla mail atabiliyormusun?Eger atıyorsan çok iyi.Aynı dosyada komutları kullanamassın gibi geliyor Sebebi dosya zaten açık olduğu için hata alırsın gibi geliyor bana.Ama denemekte fayda var.Belki göndermek istediğin sayfanın ekran görüntüsünü alıp atmak gibi bir kodla mümkün olabilir gibi geliyor
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst