Sziasztok!

 

VBA-val email küldésében kérek segítséget.

 

Régóta használjuk ezt, de most a részben állandó tartalmak mellé bekerültek változók, valamint egy táblázat részlete is.

 

With email
   .To = Címzett
   .Cc = Másolatok
   .Subject = "Kmentés_" & Psz & "_" & TipK & "_" & WKm.Cells(sor, 6) & Atadva
   .Display
End With

 

Eddig nincs gond, a változókat remekül kezeli. A probléma a bodyval van.

 Az email szövege egy megszólítással kezdődik

 

Sendkeys "Tisztelt Főni! '(ez állandó)

 

Sendkeys "Tájékoztatom, hogy az ekkor és ekkor történt ilyen meg olyan valami megvalósult" '(ebben a szövegben változókból kapjuk meg a mondatot)

 

Majd itt jön egy táblázat meghatározott részének a bemásolása

 

Sheets("Kmentés").Range("A2:" & Sm & "5").Copy
SendKeys "^v"

SendKeys "{ENTER}"
SendKeys "{ENTER}"

SendKeys "Ide még jön egy lezáró szöveg, ami szintén állandó"

 

Tehát 4 részből áll össze a szöveg:

1. Megszólítás

2. Változó szöveg

3. Táblázat

4. Állandó szöveg

 

Alapvetően azt gondoltam, hogy mindegyik részt copy pasteval illesztem be egymás után. Azonban ha ebben a részben egynél több copy pastet szeretnék, annak ellenére, hogy egyenként másolom a meghatározott tartományt, majd illesztem be, mégis csak az egyik tartományt másolja be, de azt háromszor. 

Ha sendkeys-szel írom be a szöveget, akkor meg a szövegben lévő "í" betűt nem ismeri fel, és annak a helye karakter nélkül marad.

 

Milyen módon lehetne mégis pofásan megoldani ezt?