• DİKKAT

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

Makroyla email gonderme

Merhaba;

Benim döküntü PC çakıldığı için ne olduğunu anlayamadım .... ama kodları değiştirmeden kullanmışınız, bu durumda neden öyle bir problemle karşılaştınız, bilemiyorum.
 
microsoft outlook yükleyince oldu ama ben outlook express kullanıyorum. daha sonra mic.outlook'u kaldırınca gene olmadı. sanırım Microsoft Outlook 10.0 Object Library olmadığı için yollamıyor. bu dll system32 klasörünün içindeki hangi dosya? yada burada yok mu?

teşekkürler...
 
sn. turkanet

outlook express'te niçin ısrar ediyorsunuz anlamadım.
msoutlook daha profosyenel bir yazılım ve outlook express'ten
pekçok artıları var.
Office kurarken sizin msoutlook'ku kurmadığınızı kim
bilebilirdi ki? Günlerdir yazıyorsunuz ama bundan hiç bahsetmediniz.

Microsoft Outlook 10.0 Object Library
benim bilgisayarımda
C:\Program Files\Microsoft Office\Office10\msout.olb
şeklinde gözüküyor.
"msout.olb" dosyasını aratın varsa ilişkilendirin yoksa msoutlook'u
kurup bu dosyayı yedekleyin, msoutlook'u kaldırın ve
yedeklediğiniz dosya ile ilşkilendirin.
Olmazsa msotlook'u kullanmak durumundasınız.

Ayrıca
Microsoft Office 10.0 Object Library
için
"mso.dll" varmı onada bir bakın.
C:\Program Files\Common Files\Microsoft Shared\Office10\mso.dll
dosyasınıda ilişkilendirmeniz gerekebilir.


Bana sorarsanız msoutlook derim.
kolay gelsin
 
Sn. Galkan, birçoğumuzun KENDİ tercihlerini yaşadığı gibi, ben de kendi tercih ettiklerimi yaşamaktayım. ms outlook için önerilerinize sonuna kadar saygı gösteriyorum ama benim de -sizin gibi- bir programı tercih etme nedenlerim vardır.
1-outlook express daha basit ve her türlü pc'de kolayca açılan bir programdır ki ben, outlook express bile kullanan biri değilim. sadece windowsla standart geldiği için var.
2-bundan yaklaşık 1 ay önce çalıştığım sektörde sezon bitti ve ben makineme format attım. yine aynı şekilde xp pro sp2 kurmama rağmen, office versiyonumu 2003'e terfi ettirdim. zaten ne olduysa ondan sonra oldu. çalışan dosyam çalışmaz oldu.
forumdaki bu başlıkta benim mesajlarımı dikkatle okursanız, outlook kullanarak excel'den mail yollama konusunda bilgi almaya çalışmıştım hep. ve bunu Sn.Haluk'un son yolladığı dosya ile yapabilmiştim de.
3 tavsiyeninizi de uyguladım. hem Microsoft Outlook 10.0 Object Library yükledim("msout.olb") yi kopyalayarak), hem Microsoft Office 10.0 Object Library yükledim ("mso.dll") kullanarak. sonra olmadı, microsoft outlook'u da yükledim. tamam, ozaman oldu ama onda da microsoft outlook açık olmazsa gitmedi bir türlü
yani şimdi tekrar office xp'ye döneyim mi yoksa bir çözüm bulabilir miyim diye kara kara düşünüyorum.

teşekkürler...
 
sorunu, ms outlook yükleyerek ama default e-posta işlemcisini outlook express yaparak hallettim.
teşekkürler...
 
Acaba htm olarak kaydettiği gibi mhtml olarak ta kaydedebilir miyiz. Böylece resimleri de gönderebiliriz. ben htm uzantısını mhtml yapınca outlook çalıştırmadı. Ne gibi bir düzenleme yapmak lazım gelir?
 
Sevgili Tamercan,

Kodun başındaki

Sheets("D.REPORT").Select satırını silin..
SendMail "birisi@birisi.com" satırını ---- > .SendMail "" yapın

"VDMK2" satırınıda silin kodun çalıştığını göreceksiniz.


sevgiler

jolaus
 
merhaba arkadaşlar,
başka bir kitaptan makro buldum, çalışma sayfama kopyaladım,
email gönderiyor. ama benim istediğim ek olmadan
email göndermesi. ekteki örnekte mevcut.
bunu nasıl yaparım? yardımlarınızı bekliyorum.

iyi çalışmalar,
 
Arkadaşlar merhaba;
benim de hazır konu açılmışken bir sorum olacak.
Biz şirket içinde Lotus kullanıyoruz. Deniyor ki, bilgi-işlem gönderdiğimiz her maili okuyormuş. :eek:
Excel'de böyle bir haberleşme ile mail gönderirsek de görebilirler mi?
İstemiyorum, niye okusunlar benim mailimi :mutlu:
Bir de excel'de mail gönderirken kime, bilgi, gizli gibi kısımlar olabilir mi?
Ben uğraştım ama, yapamadım tabi.
:?
 
Sayın bekir38,
Ek olmadan derken sayfayı çıktı şeklinde göndermek mi istiyorsunuz?
Aşağıdaki kodları deneyebilirsiniz.
[vb:1:e34a1099c7]Sub SendMail()
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Deneme Mesajı"
.Item.To = "kimegidecek@_hotmail.com"
.Item.cc = "bilgi@_hotmail.com"
.Item.Bcc = "gizli@_hotmail.com"
.Item.Subject = "Mesajınız Var !... "
.Item.Send
End With
End Sub[/vb:1:e34a1099c7]
 
sayın veyselemre,

benim anlatmak istediğim böyle değil.
yani sayfanın herhangi bir çıktısını eklemesine gerek yok.
ben sadece kime kısmına benim adresim ve
konu kısmına benim ekleyeceğim bir konu ilave ederek
mail proğramını açan bir makro olması.

yani şunlar olsa yeterli ;

.Item.To = "bekir38@gmail.com"
.Item.Subject = "ISO 9001:2000 !... "

iyi çalışmalar,
 
Bu KOD'un alındığı adres[vb:1:e129fc290d]Sub Mail_small_Text_Outlook()
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With OutMail
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody
.Display 'or use .Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub[/vb:1:e129fc290d]

Ayrıca amacınız size ulaşılmasını sağlamaksa, sayfanıza size ulaşılması için köprü ekleden mail link verebilirsiniz.
 
Ayrıca amacınız size ulaşılmasını sağlamaksa, sayfanıza size ulaşılması için köprü ekleden mail link verebilirsiniz.





adsız.JPG
Tanımlama:

Dosya boyutu: 15.64 KB
Görüntülendi: 8 kere
Genişletmek için tıkla ...

çok teşekkürler sayın veyselemre,
tam istediğim bu idi.
aslında köprü işlemlerini biliyorum ama,
bu yöntemi yeni sizden öğrendim.
tekrar teşekkürler, :bravo: :bravo:
 
Merhabalar. sayfaya aşağıdaki otomatik email makrosunu ekledim fakat sayfa içinde formüller olduğu için karşı tarafa gittiğinde benim bilgisayarımla bağlantı kurmak istiyormusunuz diye mesaj çıkıyor. maili muntazam bir biçimde ulaştırıyor fakat bağlantı kurmasını nasıl önleyebiliriz.
şimdiden tesekkurler

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "serdarguyuk@dianatravel.com.tr", _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
 
Sayfanızın sadece verileri içeren bir kopyasını oluşturun ve onu gönderin.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst