Linkte güncel tarih

[muratgunay48]

Excelde köprü formülü ile tam adresi aşağıdaki gibi oluşturun ve kopyalayın.

http://xxxxxxxxxxxxxxxxxxxxxxx/2023/02/18/xxxxxxxx.pdf

Sonra outlook üzerinde yeni mail açın.
Kelime olarak Sayın yazın ve mouse ile seçili hale getirin.

Sonra EKLE-LİNK menüsünü kullaranarak kopyaladığınız linki açılan kutucuğa yapıştırın.

Deneyip sonucu bildirirsiniz.

Hocam, dediğiniz şekilde yaptım. Defalarca denedim. Excel'de hücrede bu şekilde gözüküyor. (Tıklayınca =KÖPRÜ(.................) ile başlıyor)
(Özür dilerim, kurumsal olduğu için)
Yazıya değil, hücreye tıklayıp, kopyalıyorum. Ekle>Köprü deyip yapıştırıyorum. Zaten yazı olarak yapışıyor (yani tarih 26). Bilgisayarın tarihini 25 yapıyorum. Taslak olarak kaydettiğim hâlâ 26

 

[muratgunay48]

@Korhan Ayhan hocam benim normalde kullandığım dosya var kullandığım. Bazen bununla mail atıyorum.
Hocam MURAT adlı sayfada örneğin, SAYIN MURAT GÜNAY (o ibare illaki yazacak) yazsına bu linki verebilir miyiz?
=KÖPRÜ("https://www.google.com/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg");"https://www.google.com/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg"))
Belki bu şekilde kabul ettirebilirim.
Mümkün mü?

 

[Korhan Ayhan]

Ben ekteki dosyadaki resimlerdeki gibi uyguladım.

 

[Korhan Ayhan]

Nette bulduğum bir kodu kendinize uyarlayabilirsiniz.

Kaynak; https://www.extendoffice.com/documents/excel/5849-excel-vba-insert-hyperlink-into-email-body.html#hyperlink in email body

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

 

[muratgunay48]

Ben ekteki dosyadaki resimlerdeki gibi uyguladım.

Hocam, fotoğraf oluyor. Ama =KÖPRÜ("http://xxxxxxxxxxxxxxxxxxxxx/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg/")&"xxxxxxxxxx.pdf";"http://xxxxxxxxxxxxxxxxxxxxxxx/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg/")&"xxxxxxxxxx.pdf")
Bu olmuyor.

 

[muratgunay48]

Nette bulduğum bir kodu kendinize uyarlayabilirsiniz.

Kaynak; https://www.extendoffice.com/documents/excel/5849-excel-vba-insert-hyperlink-into-email-body.html#hyperlink in email body

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

Hocam, öncelikle geç yazdığım için özür dilerim. Ben gece çalışıyorum, gündüz uyuyorum. Bu kod faydalı biraz değiştirdim. Ama 1-2 şey sorsam
1- Merhaba'nın (Hi there) üzerine, yani en başa logo koyabilir miyiz?
2- CC. birden fazla nasıl yazılır?
3- Bu tıklama kısmına
=KÖPRÜ("http://xxxxxxxxxxxxxxxxxxxxx/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg/")&"xxxxxxxxxx.pdf";"http://xxxxxxxxxxxxxxxxxxxxxxx/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg/")&"xxxxxxxxxx.pdf")
yazılabilir mi?
4- Bu fotoğraftan başlayarak, link, teşekkürler çerçeveiçine alınıp ortalama yapılabilir mi?

Çok ama çok teşekkür ederim hocam. Çok uğraştırdım.

 

[Korhan Ayhan]

Merhaba,

Ben size kapıyı açtım. Kapıdan geçmek size ait. Biraz kurcalamak uğraşmak gerekiyor.

Verdiğim kod zaten mail penceresine link ekliyor. Geliştirip kullanmak size kalmış.

 

[muratgunay48]

Merhaba,

Ben size kapıyı açtım. Kapıdan geçmek size ait. Biraz kurcalamak uğraşmak gerekiyor.

Verdiğim kod zaten mail penceresine link ekliyor. Geliştirip kullanmak size kalmış.

Hocam, satır atlama falan yaptım zaten. Link de tamam ama =KÖPRÜ fonksiyonunu yapamadım. Sizler kadar bilgim olsa.
Sadece onu yazsanız, size zahmet.

 

[muratgunay48]

Merhaba,

Ben size kapıyı açtım. Kapıdan geçmek söz ait. Biraz kurcalamak uğraşmak gerekiyor.

Verdiğim kod zaten mail penceresine link ekliyor. Geliştirip kullanmak size kalmış.

Hocam şöyle yazdım, hücreden alsın diye, yine olmadı.
"file:///C:\Users\muratgunay48\Desktop\Deneme.xlsm - Sayfa1!A6"">Here</a> to open the page"

 

[Korhan Ayhan]

Verdiğim kod içinde "On Error Resume Next" satırının üstündeki satırda link veren kısım var. O bölümü kendi isteğinize göre revize edeceksiniz.

 

[muratgunay48]

Verdiğim kod içinde "On Error Resume Next" satırının üstündeki satırda link veren kısım var. O bölümü kendi isteğinize göre revize edeceksiniz.

Hocam, buraya
=KÖPRÜ("http://xxxxxxxxxxxxxxxxxxxxx/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg/")&"xxxxxxxxxx.pdf";"http://xxxxxxxxxxxxxxxxxxxxxxx/"&METNEÇEVİR(BUGÜN();"yyyy/aa/gg/")&"xxxxxxxxxx.pdf")
Bu fonksiyonu yazmaya çalışıyorum. Olmuyor (yani ben yapamıyorum) saatlerdir uğraşıyorum. Ne denesem hata veriyor. Link yazarsam sıkıntı yok. Ama fonksiyon yazarsam hata veriyor.

 

[Korhan Ayhan]

Vba tarafında formül kullanmayın. Köprü metninde sabit kısımları bir değişkene atayın. Size lazım olan tarih kısmının değişken olması. Onuda vba tarafında Format fonksiyonu ile rahatlıkla çözersiniz. Biraz kurcalayın.

 

[muratgunay48]

Vba tarafında formül kullanmayın. Köprü metninde sabit kısımları bir değişkene atayın. Size lazım olan tarih kısmının değişken olması. Onuda vba tarafında Format fonksiyonu ile rahatlıkla çözersiniz. Biraz kurcalayın.

Hocam sayenizde sonuca gelecek gibiyim. Format(Now, "yyyy/mm/dd") yazıyorum ama web'de 2023.02.23 açıyor neden acaba.

 

[Korhan Ayhan]

Sonuca giden her yolu denemek lazım. Böyle yaparak kendinizi geliştirebilirsiniz.

Tarihi parçalamayı deneyin. (Yıl-Ay-Gün)

 

[muratgunay48]

Sonuca giden her yolu denemek lazım. Böyle yaparak kendinizi geliştirebilirsiniz.

Tarihi parçalamayı deneyin. (Yıl-Ay-Gün)

Hocam, sayenizde, çok ama çok teşekkür ederim
Format(Now, "yyyy") & "/" & Format(Now, "mm") & "/" & Format(Now, "dd")

Hocam, resim (kurumsal logo) bir yol gösterseniz

 

[muratgunay48]

@Korhan Ayhan hocam, fotoğraf eklemek için de bir yol gösterebilir misiniz?

Sub mail()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
tmp = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "C:\Users\muratgunay48\Desktop\aaa\pic.JPEG"
xStrBody = "<font face='Calibri' size='4' color='black' weight='bold'>MERHABA</font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='4' color='blue' weight='bold'><a href=" & "a href=" & "https://www.excel.web.tr/"">TIKLAYINIZ</a></font>" & "<br>" & Chr(10) & _
"<font face='Calibri' size='4' color='black' weight='bold'>TEŞEKKÜRLER</font>"
On Error Resume Next
şeklinde yaptım ama olmadı.

 

[Korhan Ayhan]

Arama yapmakta fayda var.

Sorgu için arama sonuçları: Outlook+picture

www.excel.web.tr