bu görüntüyü makro ile nasıl yapabilirim

[ismailayan]

arkadaşlar

bu çok acil benim için....

 

[uzmanamele]

merhaba
excel yardımdan "E-posta aracılığıyla çalışma kitabı veya çalışma sayfası gönderme" konusunu araştırınız.

 

[ismailayan]

merhaba uzmanamele bey
baktım ama bir şey bulamadım. bana bu uygulamayı makro yönetimyle uygulamam gerkeiyor.


işin açıkcası vb6 da yazdığım bir projede belli bir saate excel dökümü alıp aynı öküm üzerinden mail atmayı düşündüm. ve bu uygulamayı outlook expressde yapmam gerekiyor.

sizin bilginizin oluğuna inanıyorum.

lütfen bu konuda bana yardımcı olurmusunuz?

 

[uzmanamele]

merhaba

dosyayı mail olarak atmak için makro kullanacaksanız, bu konuyla ilgili sitede bir çok örnek var

 

[ismailayan]

bir çoğu microsoft outlook iççin örneklerin. microsoft outlook da gönderirken evet hayır mesajı çıkartıyor. benim yazdığım programda gece göndereceği için bu mesajın çıkmaması gerekiyor. bende en mantıklı işlemin bu şekilde olucağını düşündüm. önce programla excel ökümü aldırıyorum. sonra aynı döküm üzerinden excel üzerinden yani mail göndermeyi üşünüyorum.

sitede örnek var ama subject kısmında tablolu bir şekilde gönderme olayı yok. isterseniz. çalışmmış olduğum excel doyasını sizi gönderebilirim. belki daha iyi yardımcı olabilirsiniz.

 

[ismailayan]

iyi akşamlar arkadaşlar


öncelikli olarak tüm excel web üyesi olan arkadaşların ramazan bayramını kutlarım.


bu soruma hala cevap beklemekteyim.

lütfen desteğinizi bekliyorum

 

[Muzaffer Ali]

Aşağıdaki kodu kullanabilirsiniz

Application.Dialogs(xlDialogSendMail).Show "Alıcıpostaadresi", "konu"

Not: Bu kod Office 2007 de çalışıyor 2003 de deneme yapmadım

 

[ismailayan]

merhaba arkadaşlar


ben anlatamadım galiba outlook express otomatik göndermede güvenlik nedeniyle ewet hayır mseaj uyarısı veriyor. bende outlook expressden excelin direk mail atma olayı var. vb6 dan o excel mail gönderme kısmını açıp direk outlook expressden göndermek istioyurm


konuyu açarken resim ile bunu anlatmak istedim.

mail ile ilgili microsoft oulook örnek çalışmaları var.


diğer sitelerdede bulamadım.

imkansızı bir şeymi istiyorum

tereddüt içinde kaldım

konuyla paylaşımı olan arkadaşlar lütfen cvp yazsın

 

[ismailayan]

arkadaşlar
bugün bilgi ve müsait olan arkadaşlar bu sorunumla ilgilenebilirlermi acaba

çok acil lazım bu işlem benim için

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanarak bahsettiğiniz menüyü açabilirsiniz.

Option Explicit
 
Sub Mail()
    Application.CommandBars.FindControl(ID:=3738).Execute
End Sub

 

[ismailayan]

tşkler korhan bey


peki mail gönderme işlemini tamamen nasıl yapabilirim.

o kısmı açtık ama

gönderielecek adresi konusunu

nasıl yazdırabilirim.

 

[Korhan Ayhan]

Selamlar,

İsmail bey makro ile açılan menüye müdahale etmeye çalıştım fakat başarılı olamadım. Aşağıdaki linkte excelden mail atma ile ilgili bir çok örnek bulunmaktadır. İncelermisiniz.

http://www.rondebruin.nl/tips.htm

 

[ismailayan]

merhaba korhan bey

öncelikli olarak çok tşkler. vermiş olduğunuz kod ile o kısmı açabildim. şimdi sadece Bu Sayfayı Gönder butonuna tıklamam kaldı. o butonun ID nasıl bulabilirim. o kısma tıkladığımda proje tamamlanıyor.

bu konuyla ilgili bana yol gösterirmisinin?

 

[Korhan Ayhan]

Selamlar,

O butonun kısayol tuşu ALT+U tuşlarıdır. Aşağıdaki kodu kullanabilirsiniz. Bu arada pencere açılıyor fakat mail adresi kodla yazılamıyor. Siz bu kısmı kod ile yapabildiniz mi?

Option Explicit
 
Sub Mail()
    Application.CommandBars.FindControl(ID:=3738).Execute
    Gönder
End Sub
 
Sub Gönder()
[COLOR=red]    Application.SendKeys "%u"
[/COLOR]End Sub

 

[ismailayan]

günaydın koray bey


çok tşkler yardımınız için. elinize ikrinize sağlık.

 

[ismailayan]

koray bey

çalışmam aşağıda gibidir. bu halde eksiklik var. mail adresi yazdıramıyorum. send komutu işe yaramıyor. excelde bu kısımlara müdahale edilmiyor herhalde. tamamen kullanıcı insiyatifinde bir çalışma şekli var gibi.

ama Application.CommandBars.FindControl(ID:=3738).Execute bu komut sanki o kısımlarında bir ID 'si var. diye düşünüyorum ama.bu konu tamemen uzmanlık ötesi bir konu. bulunmasıda biraz zor gibi.


siz aşağıda kodları kontrol edersiniz. bir hatam veya bir eklenti varsa bilgilendirirsiniz beni. bu arada kod visual basic 6 üzerinde yapılıyor.

XlApp.Application.Cells.Select
XlApp.Application.Cells.EntireRow.AutoFit
XlApp.Application.Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

Application.ActiveWorkbook.EnvelopeVisible = True

Application.EnableEvents = True

Application.CommandBars.FindControl(ID:=3738).Execute


With Application.ActiveSheet.MailEnvelope
.Introduction = Text3.Text
' .Item.To = Trim(Text1.Text) & ";" & Trim(Text5.Text)
.Item.To = Trim(Text1.Text)
.Item.Subject = Text3.Text
.Item.Display
' .Item.Send
End With

Application.SendKeys "%(u)"

thanks!....

 

[ismailayan]

merhaba arkadaşlar

sorunu çözdüm allaha şükür. ama maile atarken türkçe karekter bozukluğu var. ş,ğ.ı,İ kibi karekterlere anlamsız karekterler çıkartıyor.

bu sorunu nasıl çözebilirim.

Dim iMsg As Object, iConf As Object
Dim strHTML As String

Dim iii As Byte, j As Byte

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<TABLE BORDER>"

For iii = 1 To MSFlexGrid1.Rows - 2
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To MSFlexGrid1.Cols
strHTML = strHTML & "<TD bgcolor='white'align='Left'> <FONT NAME='Arial Tur'> <FONT COLOR='black' SIZE=4>" & Application.Cells(iii, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next iii

strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

With iMsg
Set .Configuration = iConf
.To = Trim(Text1.Text)
'.From = "youralias@yourdomain.com"
.Subject = Trim(Text3.Text)
.HTMLBody = strHTML
.Send
End With