[Yardım]  mail atma makrosu (formülsüz)

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

mail atma makrosu (formülsüz)

İleti#1)  slckfb » 09 May 2018 21:02

Yeni klasör.rar
Merhabalar,
taze üye olarak hepinize selamlar.konuda incelediğim üzere ihtiyacımı büyük oranda karşılayan makroları inceledim.fakat ekte bulabileceğiniz dosyamda farklı sekmelerde ucus raporlarım var.maddeler halinde asağıda belirtiyorum;
1.sadece çalıştığım sayfayı alsın
2.gönderimi yapmasın sadece maile eklesin ben göndereceğim kişileri ve imzamı manuel ekleyeceğim.
3.maile eklenecek excelin ismini hücrelerden belirli bir sırayla makro ile alsın(hücreleri ben secebilirim)
4.alt tarafta buton yine çıkıyor onun olmaması lazım.
5.sadece values olarak alsın formuller olmasın.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
slckfb
 
Kayıt: 09 May 2018 20:42
Meslek: havacılık
Yaş: 30
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: mail atma makrosu (formülsüz)

İleti#2)  slckfb » 09 May 2018 23:35

Birkaç makro denedim fakat bana uygun olmayan özellikler olduğu için problem oluyor.özellikleri toplayıp birleştirme yapmak istedim ve tabiki olmadı [ilginc]
yardımcı olabilirseniz hızıma hız katacağım.cok tesekkurler.
Kullanıcı avatarı
slckfb
 
Kayıt: 09 May 2018 20:42
Meslek: havacılık
Yaş: 30
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: mail atma makrosu (formülsüz)

İleti#3)  slckfb » 10 May 2018 20:22

merhabalar,cok rica ediyorum ilgilenebilecek biri var mıdır?
Kullanıcı avatarı
slckfb
 
Kayıt: 09 May 2018 20:42
Meslek: havacılık
Yaş: 30
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: mail atma makrosu (formülsüz)

İleti#4)  slckfb » 10 May 2018 23:53

aşağıdaki makro iyi gibi görünüyor sadece aşağıdaki gibi düzenleyebilir misiniz?
1.sadece values olarak alsın formuller olmasın.
2.alt tarafta buton yine çıkıyor onun olmaması lazım.
3.eğer olursa maile eklenen excelin ismini hücrelerden belirli bir sırayla makro ile alsın(hücreleri ben secebilirim)

Sub EmailWithOutlook()
Dim oApp As Object
Dim oMail As Object
Dim WB As Workbook
Dim FileName As String
Dim wSht As Worksheet
Dim shtName As String

Application.ScreenUpdating = False

' Make a copy of the active worksheet
' and save it to a temporary file
ActiveSheet.Copy
Set WB = ActiveWorkbook

FileName = WB.Worksheets(1).Name
On Error Resume Next
Kill "C:\" & FileName
On Error GoTo 0
WB.SaveAs FileName:="C:\" & FileName

'Create and mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
'Uncomment the line below to hard code a recipient
'.To = "testuser@test.com"
'Uncomment the line below to hard code a subject
'.Subject = "Subject Line"
'Uncomment the lines below to hard code a body
'.body = "Dear John" & vbCrLf & vbCrLf & _
'"Here is the file you asked for"
.Attachments.Add WB.FullName
.Display
End With

'Delete the temporary file
WB.ChangeFileAccess Mode:=xlReadOnly
Kill WB.FullName
WB.Close SaveChanges:=False

'Restore screen updating and release Outlook
Application.ScreenUpdating = True
Set oMail = Nothing
Set oApp = Nothing
End Sub
Kullanıcı avatarı
slckfb
 
Kayıt: 09 May 2018 20:42
Meslek: havacılık
Yaş: 30
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe