Почему он вставляет иногда, а не вставляет в другой раз?

Question

Я использую следующий код для копирования / вставки списка рассылки, строки темы и тела письма в открытое письмо в проводнике inte rnet.

Приблизительно в 80% случаев он все идеально скопирует / вставит. В остальное время тема или дистрибутив не вставляются. Если бы кто-нибудь мог дать мне лучший способ сделать это, это было бы здорово!

'These code is for the distro line
Sheets("Setup").Range("F8").Copy
Sheets("Main Email Work Area").Select
SetForegroundWindow HWNDSrc
Set tags = ie.Document.GetElementsByTagName("input")
tags(0).Click
tags(0).Focus
Application.SendKeys ("^v"), True
Application.Wait Now + TimeValue("00:00:01")


'This code sets the subject line
Sheets("Main Email Work Area").Select
Range(Cells(7, "J"), Cells(7, "M")).Select
Selection.Copy
SetForegroundWindow HWNDSrc
tags(3).Click
tags(3).Focus
Application.SendKeys ("^v"), True
Application.Wait Now + TimeValue("00:00:01")


'This code sets the email body
Sheets("Main Email Work Area").Select
emailBodyCopy = 120
While Cells(emailBodyCopy, "J").Value = ""
       emailBodyCopy = emailBodyCopy - 1
Wend
Range(Cells(emailBodyCopy, "J"), Cells(13, "L")).Select
Selection.Copy

SetForegroundWindow HWNDSrc

Set bodyarea = ie.Document.GetElementsByClassName("allowTextSelection _mcp_32 customScrollBar ms-bg-color-white ms-font-color-black owa-font-compose")
bodyarea(0).Click
bodyarea(0).Focus
Application.SendKeys ("^v"), True
Application.Wait Now + TimeValue("00:00:01")