Makroyla email gonderme

[ugursaglam]

Merhaba,

Ben Excel Vba kullanmaya yeni başladımda, henüz pek bir şey yapamıyorum... Ufak dosyalarda siz ustaların konularından faydalandım ama bu sefer yöneticim benden zor bir dosya istedi, ekteki dosyayı şablon olarak alıp, için resim formatında, dosya ekleyip birden fazla alıcıya göndermem gerekiyor. Acaba bu mümkünmüdür, ve yardımcı olabilirseniz sevinirim...

Şimdiden Teşekkürler,

 

[hamitcan]

Evet yapılabilir. Forumda da benzeri örnekler mevcut.

 

[bekir38]

sanırım bu konuyla ilgili birçok kişinin sıkıntısı var.
forumda 2 gündür arama yapıyorum ama birçok konu açılmasına rağmen uygun bir örnek bulup kendime uyarlayamadım.

http://www.excel.web.tr/f48/makroyla-mail-gonderme-t19650/sayfa3.html

yukardaki linke konu hakkında bilgisi olan arkadaşlar destek olursa sevinirim.

iyi çalışmalar,,,

 

[nzmsmz]

Merhaba bir çok yerde araştırdım ancak tam olarak istediğim kodu bulamadım. VBA bilgim yok denecek kadar az kodların dilinden anlamıyorum

Tam olarak istediğim şu

A sutununda isim ve soyisim var
B sutununda iste İD numaraları
C sütünunda satış sayısı
D sutununda ise ilgili kişinin e posta adresi.

Bunu tek bir buton ile sadece ilgili sütundaki satış sayısını D stünunda yer alan e posta adresine gonderebilirmiyim. Yalnız toplu olarak gitmesini istemiyorum Yani C stunundaki satış sayısı kime ait ise D stunundaki e posta adresine göndersin

yardımcı olabilirseniz sevinirim

 

[a_self_lion]

Sayın Haluk Bey ofice 2010 kullanıyorum sizin bu kodunuzu bir butona atadım. Gerekli sayfamda çalıştırdım.

Run-time error '1004':
Microsoft Excel 'C:\mizan.xls' dosyasına erişemiyor. birkaç olası neden vardır:
* dosya adı ya da yol yok.
*dosya başka bir program tarafından kullanıyor.

C klasörümde manuel baktım böyle bir dosya yok.

Debug a basdığım zaman

ThisWorkbook.SaveCopyAs WbName

burda hata veriyor.

Lütfen yardım edebilirminiz.
Saygılarımla.

 

[baydeniro]

Sayın üstadlar selamlar,

Excelin yapabilecekleri arasında şöyle bir özellik var mı ?
Outlookta birkaç hesap varsa, Excelden mail göndermek istediğimizde hangi hesaptan gitmesi gerektiğini seçebiliyor muyuz (Excelin içinden) ?

 

[uKiGS]

Sayın üstadlar selamlar,

Excelin yapabilecekleri arasında şöyle bir özellik var mı ?
Outlookta birkaç hesap varsa, Excelden mail göndermek istediğimizde hangi hesaptan gitmesi gerektiğini seçebiliyor muyuz (Excelin içinden) ?

baydeniro seçilebiliyor.

.SentOnBehalfOfName = "istenilenmail@mail.com"

modül kısmına bunu kopyaladığınız zaman oluyor. en azından benimkisi öyle calisiyor

 

[Ahmet ÖZGÜR]

@lionamic;

ALPEN'in önerdiği linkte hemen her türlü e-mail kodu bulabilirsiniz, gerçekten güzel bir kaynaktır orası.

Aşağıdaki de, fırından yeni çıkmış dumanı üstünde kendi imalatımızdır..... :mrgreen:

Bu kod, seçilen herhangibir aktif sayfayı, sözkonusu sayfa adında bir kitap haline getirerek, eklenti şeklinde MS Outlook kullanarak e-mail ile gönderir.

'******************************************************
'* Sadece Aktif sayfayı MS Outlook ile yollamak için
'* yapılmış bir çalışmadır
'* Micosoft Outlook X.0 referansı eklenmelidir !
'* Burası Excel vadisi ...
'* Raider ®
'* Şubat 2005
'******************************************************

Sub SendShByEmail()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Dim ShName As String, WbName As String
Dim i As Integer
Dim ModX As Object, VBComp As Object

ShName = ActiveSheet.Name
WbName = "C:\" & ShName & ".xls"

ThisWorkbook.SaveCopyAs WbName

Application.DisplayAlerts = False
Workbooks.Open WbName
For i = Sheets.Count To 1 Step -1
If ActiveWorkbook.Sheets(i).Name <> ShName Then Sheets(i).Delete
Next

On Error Resume Next
For Each ModX In ActiveWorkbook.VBProject.VBComponents
Set VBComp = ActiveWorkbook.VBProject.VBComponents(ModX.Name)
ActiveWorkbook.VBProject.VBComponents.Remove VBComp
Next
On Error GoTo 0
Application.DisplayAlerts = True

ActiveWorkbook.Close SaveChanges:=True

Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "falan@filan.com"
.Subject = "Deneme"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Attachments.Add WbName
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
Set VBComp = Nothing
Kill WbName
End Sub

Merhaba

Bu makro da formülleri sayıya çevirip sonrasında mail göndermek için nasıl bir düzenleme yapılabilir??