Makroyla email gonderme

[Haluk]

Pardon.... resimi görünce aklıma geldi de....

Bu e-mail penceresinin sağ yanındaki kaydırma çubuğunu aşağıya doğru çekince de, "Açıklama" kısmı görülmüyor mu ?

:mrgreen:

 

[melwitch]

maalesef en aşağıya kadar indirdikten sonra görüntü aldım.

 

[Haluk]

Ama sizin resime bakılırsa, kaydırma çubuğunun daha aşağıya inmesi gerekiyor gibi gözüküyor....

Neyse....

Edit: Dosyada da bir problem yok...

 

[melwitch]

Resmi biraz kesmek zorunda kaldığımdan öyle görülüyor. ama emin ol son satıra kadar indirdim ve orada yoktu. keşke öyle olsaydı da sorunum çözülmüş olsaydı.

 

[turkanet]

arkadaşlar, MAKROYLA EMAIL GÃ?NDERME olayı sadece ms outlook'ta mı olabilir? bende outlook express yüklü. bununla mümkün değil mi?

 

[bistrobellman]

bende de lotus diye bir mail programı var..duyanlarınız var mı bunu? buradan otomatik yollanabilir mi? cok zor olay değil mi?=

 

[veyselemre]

http://www.rondebruin.nl/mail/add-in.htm
adresinde bulduğum SendMail (2.22) eklentisi
Araçlar menüsünün altında SendMail (2.22) menüsünü ekliyor
buradan workbook, sheet email olarak gönderebiliyorsunuz

 

[turkanet]

sonunda ben de başardım ama küçük bir ayrıntı kaldı;
subject bölümü; "deneme" yerine; şablon sayfasındaki A2 hücresi olsun. nasıl değiştirebilirim?

Private Sub CommandButton2_Click()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "falan@hotmail.com"
.Subject = "Deneme"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[veyselemre]

.Subject = [a2]

 

[turkanet]

2 SORUM VAR;

1- butona bastığımda o sayfayı yollasın istiyorum. yani, buton sayfa1'de zaten. bastığımda sayfa1'i yollasın istiyorum.

.Body = "Bu e-mail deneme amacıyla gönderilmiştir."

bu örnekte, sadece o cümleyi yolluyor.

2-outlook express açık değilse resimdeki hatayı veriyor.

teşekkürler

 

[turkanet]

arkadaşlar,
Private Sub CommandButton2_Click()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "falan@hotmail.com"
.Subject = .Subject = [a2]
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

ile yolluyor ama body kısmında "Bu e-mail deneme amacıyla gönderilmiştir." değil de, sayfanın gitmesi için burayı nasıl değiştirebilirim?
:dua: :dua: :dua: :aha:

 

[red_lion_72]

selam,

Ã?nce aktif sayfayı kendi verdiğiniz isimle c ye kaydedip sonrada onu ataçlamak için aşağıdaki kod. Ama bir de aktif sayfayı gönderen kod vardı onu bulamadım. Aslında forumda araştırısanız bulursunuz herhalde.

Private Sub CommandButton2_Click() 

    Application.DisplayAlerts = False
    bad = Sayfa2.Range("b1") 'bad isimli değişkene b1 de yazan ismi atıyoruz 
    Sheets("Sayfa2").Copy
    ActiveWorkbook.SaveAs Filename:="C:\" & bad 'b1 hücresindeki isimle sayfayı kaydeder....

    
Dim OutApp As Outlook.Application 
Dim NewMail As Outlook.MailItem 
Set OutApp = New Outlook.Application 
Set NewMail = CreateItem(olMailItem) 
With NewMail 
.To = "falan@hotmail.com" 
.Subject = .Subject = [a2] 
.Body = "Bu e-mail deneme amacıyla gönderilmiştir." 
.Save 
.AddAttachment "C:\" & bad & ".XLS" 
.Send 
End With 
Set NewMail = Nothing 
Set OutApp = Nothing 
End Sub

 

[turkanet]

Sn. WAKKASSSS, sanırım bu isteğimden vaz geçmem geekecek. çünkü sadece sayfayı gönderen (ataç olarak değil) bir kod bulamadım. forumda arama da yaptım ama olmadı. sağlık olsun.

 

[ALPEN]

Selam
http://www.dicks-clicks.com/excel/olSending.htm#Sending_One_Sheet_as_an_Attachment

[vb:1:8900385e22]Sub SendOneSheet()

Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

ThisWorkbook.Sheets(2).Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
"Sheet2.xls"

With olMail
.Recipients.Add "You@me.com"
.Recipients.Add "Me@You.com"
.Recipients.Add "Him@Her.com"
.Subject = "That one sheet"
.Body = "Here you go" & vbCrLf
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

ActiveWorkbook.Close False

Kill ThisWorkbook.Path & "\" & "Sheet2.xls"

Set olMail = Nothing
Set olApp = Nothing

End Sub[/vb:1:8900385e22]

 

[turkanet]

Sn. Alpen çok teşekkürler, yiten umutlarım geri geldi fakat;
küçücük bir ayrıntı kaldı;
bu belgeyi ben hergün defalarca belirli bir yere yolluyorum. ve bana belirtildiği üzere, KESİNLİKLE attachment olarak yollamamam lazım. yani maalesef body kısmında o sayfanın görünmesi gerekiyor. yolladığınız kodu kendi emailime uyarlayarak denedim. attachment olarak muntazam şekilde geliyor ama bu sayfanın body 'de olması gerekiyor. bu konuda yardım edebilir misiniz?
teşekkürler.

 

[red_lion_72]

Private Sub CommandButton2_Click()


Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "falan@hotmail.com"
.Subject = .Subject = [a2]
HTMLBody = SheetToHTML(ActiveSheet)
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[ALPEN]

Raider yine bu başlık altında çok güzel bir örnek vermiş zaten, incelediniz mi?

http://www.excel.web.tr/viewtopic.php?p=25612#25612

 

[turkanet]

anladım ki, be tam bir excel acemisiymişim

hepsini uyguladım ve şekildeki hata mesajını verdi

 

[red_lion_72]

pardon nokta koymayı unutmuşum

Private Sub CommandButton2_Click()


Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "falan@hotmail.com"
.Subject = .Subject = [a2]
.HTMLBody = SheetToHTML(ActiveSheet)
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[turkanet]

Sn. WAKKASSSS maalesef nokta koyunca da aynı hatayı vardi ben nerede yanlış yapıyorum? :kafa: :düsün: :agla: