Sorgu için arama sonuçları: mail

pc nizde outlook kurulu mu. excelinizde outlook tan mail gönderme kodları hazır sadece pdf kısmı mı eklenecek. yoksa outlookdan mail atma kodu da mı yazılacak.

Merhaba, Excel sayfasında seçilen bölümü kaydetmeden mail ile pdf olrak iletmek istiyorum. Yardımcı olabilir misiniz?

hocam merhabalar bu kod kendi bilgisayarımda çalışırken, diğer bilgisayarlarda "Path not found" hatası verip biçimi atmıyor diğer bilgisayarlarada "123" renk özelleştirmesini yapmamıza rağmen neden kaynaklanıyor olabilir hata

...= True ActiveWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True Dim objOutlook As Object Dim objMail As Object ' Outlook mail oluşturma Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) ' Mail oluşturup...

Merhaba, Özetle, Excel dosyasına gerçek mail adresi ve gerçek şifreleri ile giriş yapmak mümkünmüdür ? Yani birden çok kişinin kullandığı bir excel dosyasına, kişiler gerçek mail adresleri ve o mail adreslerinin gerçek şifreleri ile giriş yapmaları sağlanabilir mi ? Burada, kişilerin mail...

Merhaba , Ekteki tabloda yardıma ihtiyacım var. Bu konuda yardımcı olursanız minnettar karılım. yasinkoc477@gmail.com mail adresime paylaşabilirsiniz. Teşekkürler.

Selamlar, run-time error '1004' hatası veriyor ve maili göndermiyor. debug dediğimde aşağıdaki kodları sarı olarak gösteriyor. With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _...

Sub MailGonder() Dim EmailApp As Outlook.Application Dim Source As String Dim myRange As Range Dim EmailItem As Outlook.MailItem Dim ExcelDosyaYolu As String ' İstenilen hücre aralığını seçiyoruz (A1:A10, B1:B10 vb.) Set myRange = Union(Range("A1:A10")...

..._ ' Burada 'UsedRange' yerine sadece seçilen aralığı belirliyoruz HtmlType:=xlHtmlStatic) .Publish (True Sub MailGonder() Dim EmailApp As Outlook.Application Dim Source As String Dim myRange As Range Dim EmailItem As Outlook.MailItem Dim ExcelDosyaYolu...

çok teşekkür ederim. Bunu uyguladığımda maili gönderiyor ama run-time error'70': permission denied hatası veriyor.debug dediğimde Kill ExcelDosyaYolu sarı ile işaretli. mail gitmesinde bir sıkıntı yok ama bu sonra sorun çıkarır mı bilmiyorum. birde mail giderken sadece excel eki olarak...

Sub MailGonder() Dim EmailApp As Outlook.Application Dim Source As String Dim myRange As Range Dim EmailItem As Outlook.MailItem Dim ExcelDosyaYolu As String Set myRange = Selection Set EmailApp = New Outlook.Application Set EmailItem =...

merhabalar, İnternette otomatik mail gönderme araştırmam sonucu aşağıdaki kodu gördüm, kullandım. Başarılı şekilde gönderiyorum ama benim gönderdiğim içerik çok fazla olduğu ve bir şeyi bulmak için filtre kullanılması gerektiği için excel eki olarak göndermem gerekiyor. Bu mümkün mü? Sub...

...üyeleri, İçinden çıkamadığım bir probleme çözüm arıyorum. Her sabah çalıştığım firmanın üretim ve tüketim değerlerini içeren otomatik bir mail alıyorum. Gelen mailleri power automate ile ilgili bir klasöre çekiyorum. Dosyada ilgilendiğim veriler B18-BE41 hücreleri aralığında. Sorun şu ki ana...

İleri Tarihli Mail - Dijital Zaman Kapsülü - DeferredDeliveryTime Şuan oluşturulacak olan bir mail içeriğini, ileri bir tarihte kişiye ulaştırılması için oluşturulan mail. ( Microsoft Exchange sunucusu veya Office 365 gibi bulut tabanlı bir posta hizmeti kullanıyorsanız) Outlook e-postayı...

Rica ederim kusura bakacak birşey yok. Bu şekilde de denedim aynı hatayı verdi

mail deneme şansım yok şu an kusura bakmayın, yazıyorum siz test edin diye olEmail in tanımlamalarını da aynı şekil değişip dener misiniz Dim olEmail As Object Set olEmail = olApp.CreateItem(0)

Selamlar Arkadaşlar Firmalarsa Satış raporlarını mail olarak göndermek için yazılmış kodlarda aşağıdaki gibi hata alıyorum. Sebebini bulamadım. Bilen arkadaşlar ilgilenebilirse memnun olurum. aldığım hata aşağıda ki gibi

Merhaba, Satırı strBody = Sheets("Toplu Mail").Range("C" & i).Value olarak değiştirip dener misiniz?

Merhaba strBody="Test 123" kısmını aynı excelde 3. kolandan aldırabilirmiyiz Sub SendEmail() Dim objOutlook As Object Dim objMail As Object Dim strTo As String Dim strSubject As String Dim i As Integer Dim strBody 'Set email properties For i = 2 To Range("A" & Rows.Count).End(xlUp).Row...

Düzelttim çok teşekkür ederim destek için (sayfa adını "Toplu Mail" olarak değiştirdim) çalıştı