Note: The other languages of the website are Google-translated. Back to English

Mevcut Word dosyası eklenmiş olarak e-posta göndermek için bir düğme nasıl uygulanır? 

Outlook aracılığıyla bir Word belgesinden bir e-posta iletisi göndermeniz ve geçerli Word dosyasını da eklemeniz gerekiyorsa, bir komut düğmesi oluşturabilir ve ardından Outlook'u açmadan bu düğmeye tıklayarak iletiyi gönderebilirsiniz. Bu makale, bununla hızlı ve kolay bir şekilde nasıl başa çıkılacağını tanıtacağım.

Mevcut Word dosyası eklenmiş olarak e-posta göndermek için bir düğme uygulayın


Mevcut Word dosyası eklenmiş olarak e-posta göndermek için bir düğme uygulayın

Lütfen bu işi Word dosyasında çözmek için aşağıdaki adımları uygulayın:

1. Öncelikle bir komut düğmesi oluşturmalısınız, lütfen tıklayın Geliştirici > Eski Araçlar > Komut Düğmesi (ActiveX Kontrolü), ekran görüntüsüne bakın:

e-posta göndermek için doc düğmesi 1

2. Düğmeyi seçin ve tıklayın Emlaklar altında Geliştirici sekmesinde, Emlaklar bölmesine ihtiyacınız olan başlık metnini yazın. Başlık alan, ekran görüntüsüne bakın:

e-posta göndermek için doc düğmesi 2

3. Ardından, Emlaklar bölme, şimdi, düğmeye sağ tıklayın ve Kodu Görüntüle, ekran görüntüsüne bakın:

e-posta göndermek için doc düğmesi 3

4. Ve sonra, görüntülenen Uygulamalar için Microsoft Visual Basic penceresi, aşağıdaki kodu kopyalayıp orijinal komut dosyaları arasına yapıştırın, ekran görüntüsüne bakın:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

e-posta göndermek için doc düğmesi 4

not: Yukarıdaki kodda ihtiyacınıza göre konu, gövde metni veya gönderilen adresi değiştirmelisiniz.

5. Ardından, bu kodu kaydedip kapatın, Tasarım Modu tasarım modunu kapatmak için. Şimdi, oluşturduğunuz komut düğmesine tıkladığınızda, mevcut Word belgesini ek olarak içeren bir e-posta oluşturulacak, ekran görüntüsüne bakın:

e-posta göndermek için doc düğmesi 5

6. Sonunda tıklamanız yeterli Gönder Bu mesajı göndermek için düğmesine basın.


Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

  • Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
  • Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
  • Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
  • Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
  • Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
Yorumları sıralama ölçütü
Yorumlar (29)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alanlarımdan birinin içeriği konu satırı olacak şekilde e-postanın gönderilmesini sağlamaya çalışıyorum. Mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hola, benim en iyi dileklerimi sunuyorum.
Çok teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Extend Office Ekibi,

'xEmile'nin yanlış yazılmış olduğuna inanıyorum. 'xEmail' olmalıdır.

Kod çalışırken ve herhangi bir sorun yokken aşağıdaki ifade hiçbir şey yapmaz:

xEmail'i ayarla = Hiçbir şey
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Abhi,
Yorumunuz için teşekkürler, dediğiniz gibi 'xEmile' yanlış yazılmış, 'xEmail' olmalı. Kodu güncelledim.
Tekrar teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu, belgenin yalnızca bir sayfasını gönderecek şekilde yapılabilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Don,
Görevinizle başa çıkmak için lütfen aşağıdaki kodu uygulayın, kodda, başlangıç ​​sayfasını ve bitiş sayfasını kendinize göre değiştirmelisiniz:

Özel Alt KomutDüğmesi1_Click ()

xCurPageStart'ı Uzun, xCurPageEnd'i Uzun, xCurPageRange'ı Aralık Kadar Kısaltın

Tamsayı Olarak xCurPage, Tamsayı Olarak xPages Dim

Nesne olarak xOutlookObj'yi karart

Nesne olarak xEmail'i karart

Belge Olarak xDoc'u Karartın, Belge Olarak xNewDoc'u Karartın

xFilePath'i Dize Olarak Karartın

Dim xOldStart Kadar Uzun, xOldEnd Kadar Uzun

On Error Resume Next

Application.ScreenUpdating = Yanlış

xOutlookObj = CreateObject("Outlook.Application") olarak ayarlayın

xEmail = xOutlookObj.CreateItem(olMailItem) olarak ayarlayın

xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)

xDoc'u ayarla = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Kaydet

xFilePath = xFilePath + "\ekli dosya" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'ekli dosya ek dosya adıdır, ihtiyacınıza göre değiştirin

xCurPageStart = 2 'başlangıç ​​sayfası

xCurPageEnd = 2 'bitiş sayfası

xPages = Seçim.Bilgi(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(what:=wdGoToPage, Hangi:=wdGoToNext, Name:=xCurPageStart).Start

xCurPage = xPages ise

xCurPageEnd = ActiveDocument.Content.End

başka

xCurPageEnd = Selection.GoTo(what:=wdGoToPage, Hangi:=wdGoToNext, Name:=xCurPageEnd + 1).Start

Eğer son

xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd) olarak ayarlayın

xCurPageRange.Select

xCurPageRange.Copy

xNewDoc = Application.Documents.Add(Visible:=False) olarak ayarlayın

xYeniDoc.Etkinleştir

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 DosyaAdı:=xFilePath

xYeniDoc.Kapat

xDoc.Range(xOldStart, xOldEnd).Seç

xEmail ile

.Subject = "Faks verileri"

.Body = "Bu bir test e-postasıdır."

.To = "yy@addin99.com"

.Önem = olÖnemNormal

.Ekler.xFilePath Ekle

.Görüntüle

İle bitmek

VBA.Kill xFilePath

xDoc'u ayarla = Hiçbir şey

xEmail'i ayarla = Hiçbir şey

xOutlookObj = Hiçbir Şey olarak ayarla

Application.ScreenUpdating = True

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
MS word'de doldurulabilir bir form hazırladım. Hesaplama vb. için eski araçları kullandım. Formu e-postaya göndermek için çalışan bir gönder düğmesi de ekledim. Sorun şu ki, kaydettikten sonra bu belgeyi yeniden açtığımda çalışmıyor. Hatta makro etkin belge olarak kaydetmeyi denedim ama faydası olmadı. Lütfen yardım edebilir misin ?
Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk başta çalıştırdım ve sonra bir nedenden dolayı şimdi bana activeX bileşeninin nesne oluşturamadığı hakkında 429 hatası veriyor. aynen kopyalayıp yapıştırdım. Bu daha önce işe yaradı, ancak yazı tipi boyutunu değiştirdim, düğmeyi büyüttüm ve başlığı yeniden etiketledim. Yanlışlıkla diğer bazı ayarları değiştirdiğimi düşünmüyorum? Ne olabileceği hakkında fikri olan?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! Komut düğmesinin, e-postanın gövdesi olarak Word belgesiyle bir e-posta göndermesini istiyorum (kelime belgem bir formdur). Bunu yapmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belgemin word belgesi yerine PDF belgesi olarak gönderilmesini istiyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Örneğin, Word belgesindeki bir metin kutusundan/metin alanından metin kullanmak ve bunu E-postanızın konu satırına metin olarak eklemek?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Evet, benim de peşinde olduğum şey bu istekte yardımcı olabilecek var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu Lotus Notes için de geçerli mi?
"xOutlookObj" da neleri değiştirmeliyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Genişlet ofis,
Outlook'a bağlı olmayan farklı bir e-posta ayarlayabilir miyiz? GoDaddy hesabına doğrudan e-posta göndermek gibi mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben de aynı bilgileri bulmaya çalışıyorum. Gmail kullanıyorum ve otomatik olarak gmail hesabıma geri gönderebilecek farklı e-posta adreslerine göndermek için bir form oluşturmam gerekiyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belgeyi oluşturdum ama şimdi sorunum şu ki, bu formu doldurması için 4 kişiye gönderirsem, e-posta ekinden açtıklarında salt okunur modda açılıyor ve gönder'i tıkladıklarında onlardan eskisi gibi kaydetmelerini istiyor. kodun bana gönderilen bir e-postayı açmasına izin verecek. Onlara dosyanın yerini vermekten başka bir yol var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu koda Bcc ekleyebilir misiniz? Bcc eklemeyi denedim ve beklenen ifade için bir derleme hatası aldım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Heather,

Bu koda Bcc ekleyebilirsiniz. Örneğin, .Bcc = "zmt@addin99.com" u .To = "yy@addin99.com" altına ekleyebilirsiniz. Böylece kod şöyle olur:

Nesne olarak xOutlookObj'yi karart
Nesne olarak xEmail'i karart
Belge Olarak xDoc'u Karartın
Application.ScreenUpdating = Yanlış
xOutlookObj = CreateObject("Outlook.Application") olarak ayarlayın
xEmail = xOutlookObj.CreateItem(olMailItem) olarak ayarlayın
xDoc'u ayarla = ActiveDocument
xDoc.Kaydet
xEmail ile
.Subject = "Faks verileri"
.Body = "Bu bir test e-postasıdır."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Önem = olÖnemNormal
.Ekler.xDoc.FullName Ekle
.Görüntüle
İle bitmek
xDoc'u ayarla = Hiçbir şey
xEmail'i ayarla = Hiçbir şey
xOutlookObj = Hiçbir Şey olarak ayarla
Application.ScreenUpdating = True

Lütfen ekteki resme bakın. İyi günler.
En içten dileklerimizle,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba millet,

Belgeyi ek olarak değil, e-posta olarak tek bir E-posta Adresine gönderip gönderdiğim bir düğme uygulamak istiyorum. Böylece belge e-postanın metnidir. Tıpkı şerit üzerindeki "alıcıya gönder" butonunun etkisi gibi.

Birisi bana bunun için doğru kodu verebilir mi?

Teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Kod, mevcut word belgesini e-posta gövdesi olarak göndermeye yardımcı olmayabilir, yapılırsa belge içindeki resim ve dosya biçimlendirmesi kaybolur.
Mevcut belgeyi e-posta gövdesi olarak göndermek istiyorsanız Adres Mektup Birleştirme size bir iyilik yapabilir.
E-posta göndermek için Adres Mektup Birleştirme'ye ihtiyacınız var mı?
İhtiyacınız varsa, lütfen buraya yorum yapın.
Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

yardımın için teşekkürler!

Sizin önerinizle deneyeceğim. Yani evet, E-Posta göndermek için Adres Mektup Birleştirme'ye ihtiyacım var.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

yardımın için teşekkürler!

Sizin önerinizle deneyeceğim. Adres mektup birleştirme kodunu verir misiniz?

Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Geçerli word belgesini posta gövdesi olarak göndermek için, Posta Alıcısına Gönder senin emrine QATlütfen şunu yapın:
1. Göndermek istediğiniz kelime dosyanızı açın ve ardından fileto > Opsiyonlar.
2. Sol bölmede öğesini seçin. Hızlı Erişim Araç Çubuğu.
3. seçmek Şeritte Olmayan Komutlar itibaren Komutları seçin.
4. Seçin ve seçin Posta Alıcısına Gönder ve düğmesine tıklayın Ekle>>.
5. tık OK diyaloğu kapatmak için.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Şimdi bu Posta Alıcısına Gönder komutunda görünecek Hızlı Erişim Araç Çubuğu Word pencerenizin en üstünde. Ardından, ilgili bilgileri ileti başlığına ekleyebilirsiniz. Bilgileri bitirdikten sonra lütfen tıklayın Bir kopyasını gönder, gövde olarak mevcut word belgesine sahip mesaj bir kerede gönderilecektir.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

Lütfen bunu deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Düğmenin bir e-posta açmak için çalıştığını buldum, ancak mailmerge kullanırken VBA düğmesi bir nedenden dolayı devre dışı kalıyor?
Posta birleştirme kullanıldığında, kullanıcının formu doldurması ve ardından düğmeyi etkinleştirmesi için düğmenin çalışacağından nasıl emin olabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mike,
Adres mektup birleştirme özelliğini kullandığımda buton aktif.
Sorununuzu daha detaylı anlatabilir misiniz?
Veya dosyanızı buraya yükleyebilirsiniz, böylece sorunun nerede olduğunu kontrol edebiliriz.
Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Skyyang,

Lütfen aşağıya koyduğum ve kopyası eklenmiş gönderiye bakın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Lütfen aşağıda ekli belgeye bakın.
2023 yenileme kullanımı için güncellemem gerekiyor ve birkaç üye bana çalışmadığını söylediği için düğmeyi birleştirirken devre dışı görünüyor.

Teşekkürler,

mikrofon
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mike,
Dosyanızı bilgisayarımda test ettim, iyi durumda. Office 2019 kullanıyorum. Lütfen aşağıdaki demoya bakın:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Skyyang,

Bunun, bir kullanıcının MS Word'ü olduğunda işe yaradığını buldum, ancak e-postalar @hotmail gibi görünüyor; @gmail; ve @live e-posta adresleri, bu kullanıcıların düğmenin çalışmadığı yerlerde sorunları var mı?
Görünüşe göre, kullanıcı bilgisayar yerine bunları kullanmaya güveniyorsa, akıllı telefonlarda da çalışmıyor.
Son olarak, düğmenin hiç çalışmadığı Windows 11 kullanan başka bir kullanıcıdan yanıt aldım.

Yukarıdaki örneklerle ne yaşadınız lütfen?

Teşekkürler,

mikrofon
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır