Görüntünün aşırı küçük olması fotoğrafı çekilen alanın aşırı büyük olduğuna işaret ediyor.
Görüntü sınırlarını belirleyen değer "sonsatır" değişkenidir.
F8 ile adım adım giderek sonsatir = Cells(Rows.Count, "I").End(1).Row değişkeninin aldığı değeri okuyun.
Eğer 1 milyon küsür bir değer ise...
Belki ihtiyacı olan olur mesai sonrası gönderilen tüm mailleri a katagorisine ekliyor çalışıyor denedim.
Sub FilterEmailsAndAddCategory()
Dim olNamespace As Outlook.Namespace
Dim olFolder As Outlook.Folder
Dim olItem As Object
Dim mail As Outlook.MailItem
Dim receivedTime...
teşekkürler bu oldu ama debug modunda adımlayarak gittiğimde resmi alıyor ekran görüntüsünü maile ama direk çalıştır dediğimde maile boş görüntü alıyor.Debug da aldığı ekran görüntüsü mail içinde tam istediğim gibi tam sayfa ama gönder dediğimde gelen mailde resim çok aşırı küçülmüş şekilde geliyor.
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir = Cells(Rows.Count, "I").End(1).Row...
...bir ekran görüntüsü almış ): excelin kendi içerisine tüm satırların arka planını silip gölgeli bir ekran görüntüsü atmış.
bu ekran görüntüsünü mail içerisine yazacak.
Orjinal makronun tamamı altta
Sub mail_gonder()
Dim alan As Range
mailkonu = Range("AD1").Value...
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim pic As Picture
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir =...
Merhaba
Belirli bir alanı seçerek diğer konu kişi mail iç yazısı alanları yazıp mail gönderen bir makrom var. Bu seçili alanı mail içine yapıştırmasını değil bu seçili alanın ekran görüntüsünü almasını istiyorum ama bir türlü çeviremedim.
Sub mail_gonder()
Dim alan As Range...
Merhaba,
Maalesef benim Outlook programım bozuldu, epeydir kullanamıyorum. Microsoftun 2007'ye desteği de kalktı. Yani artık Outlook makrolarını deneme imkanım olmuyor, kendim denemeden yazmak da doğru olmuyor.
Merhaba
Outlookten otomatik olarak cevplamak için bir makro yazdım.
müşterin mail adreslerini k koluna maüşteri maillerin @ sonraki uzntılarını yazdım
mailde gelen göre sorgulama yapıp G kolunda bulunan mail adreslerini ekleyip ilgili kişilere mail göndermesi için makro yazdım
hatayı...
Muhtemelen A1001 den itibaren almıştır.
Aşağıdaki formülü kendinize uyarlayın.
={FILTER(GUNLUK1!B3:C;GUNLUK1!B3:B<>"");FILTER(GUNLUK2!B3:C;GUNLUK2!B3:B<>"")}
...sayfaları var ve bunlar içinde aynı sütün sayısında (A..J) ancak farklı satır sayılarında benzer veriler içeren (her sütunda; ADI, TEL, ADRES, MAIL... gibi) veriler var. Ben bu dosyada boş bir sayfaya (sayfanın ismi HEPSİ olsun) bütün bu çalışma sayfalarındaki verileri alt alta aktarmak...
...olarak sarı ile işaretlediğim bölümleri müşterimiz belirli dönemlerde excel olarak istiyor, tarihler arası seçili alanları yeni excel olarak mail istiyor kopyala yapıştır yapmak zaman alıyor bazende unutuluyor bu durumu hızlandırmak isteriz.
Sayfa1 de ki fare ile seçilen verileri Aktar...
...txtDatum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtDatum = Format(CDate(Me.txtDatum), "dd.mm.yyyy")
End Sub
sizin icin bir sakincasi yoksa excel dosyasini mail adresinizi verirseniz posta yolu ile gönderebilirim. sanirim nerde hata yaptigimi bu sekilde daha net anlarsiniz
...sipariş hücrelerin tamamı boş ise satırın tamamının gizlenmesi
2- Gizlenen satırların tamamını göstermesi
3- Otomatik outlook üzerinden mail göndermesi
E posta gönder butonunu uyarlamaya çalıştım.
PDF olarak kayıt ediyor
Outlook açıyor yeni mesaj oluşturuyor.
Mevcut PDF'i ekliyor...
arkadaslar merhaba
yardiminiza ihtiyacim var.
butona tiklandiginda asagidaki örnekteki gibi otomatik maili olusturuyorum. herhangi bir sorun yok.yapmak istedigim cizgili alan icindeki folderpathwithname ve sonrasindaki isimle olusturdugum excel dosya yolunu outlook icerigine kopyalamasini...
Profesyonel grup paylaşım ve değişimleri anlık mail atma, görev süresi dolanlar için kritik bilgisini pop-up ile verme hakkında görüş ve önerilerinizi rica ederim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.