AccessTr.neT

(17/04/2021, 17:49)Oğuz Türkyılmaz yazdı: [ -> ]Merhaba uygulamada alttaki kod satırı .body iken vbNewLine ile alt satırdan devam ediyordu fakat .HTMLbody yapınca metin istenen yerlerden alt satıra atlamadan  normal şekilde düz devam ediyor. Bu durumu nasıl düzeltebilirim. Teşekkürler.


Sayın BLA BLA BLA
Ekte 2021 WINPERAX Teknik Ürün Kataloğu dikkatinize sunulmuştur.
İlginizi çekeceğini ümit ederek
kalıcı bir işbirliği oluşması temennisi ile sağlıklı günler dileriz.

yerine

Sayın BLA BLA BLA, Ekte 2021 WINPERAX Teknik Ürün Kataloğu dikkatinize sunulmuştur. İlginizi çekeceğini ümit ederek,kalıcı bir işbirliği oluşması temennisi ile sağlıklı günler dileriz.

şeklinde çıkıyor.

Kod:

.HTMLbody = "Sayın  " & CStr(syfEmail.Range("B" & i).Value) & "," _
                        & vbNewLine & vbNewLine & "Ekte 2021 WINPERAX Teknik Ürün Kataloğu dikkatinize sunulmuştur." _
                        & vbNewLine & vbNewLine & "İlginizi çekeceğini ümit ederek," _
                        & vbNewLine & vbNewLine & "kalıcı bir işbirliği oluşması temennisi ile sğlıklı günler dileriz." & .HTMLbody

                .Send

            .HTMLbody = "Sayýn  " & CStr(syfEmail.Range("B" & i).Value) & "," _

                        & "<br>" & "<br>" & "Ekte 2021 WINPERAX Teknik Ürün Kataloðu dikkatinize sunulmuþtur." _

                        & "<br>" & "<br>" & "Ýlginizi çekeceðini ümit ederek," _

                        & "<br>" & "<br>" & "kalýcý bir iþbirliði oluþmasý temennisi ile sðlýklý günler dileriz." & .HTMLbody