Bom dia,

Criei uma macro de envio de email automático, porém sempre quando rodo a macro pela primeira vez após abrir o arquivo do excel, a macro não cola as informações selecionadas na planilha dentro do corpo do email. Porém quando rodo a macro novamente, funciona normal.

Alguém tem alguma idéia o motivo disso?

Segue o código na parte do envio.

Dim dpto As String
Dim comercial As String
Dim supply As String

Do Until dpto = ""

Workbooks("Check_OK_Fiscal.xlsb").Worksheets("Dpto").Activate

comercial = Range("B" & x).Value
supply = Range("C" & y).Value

Sheets("Check").Select

ActiveSheet.ListObjects( _
"Tabela__10.116.40.22_1434_DEMAND_PLANNING_VW_REPORT_FOLLOW").Range.AutoFilter _
Field:=1

ActiveSheet.ListObjects( _
"Tabela__10.116.40.22_1434_DEMAND_PLANNING_VW_REPORT_FOLLOW").Range.AutoFilter _
Field:=1, Criteria1:="=IRREGULAR", Operator:=xlOr, Criteria2:= _
"=IRREGULAR AGENDADO"

ActiveSheet.ListObjects( _
"Tabela__10.116.40.22_1434_DEMAND_PLANNING_VW_REPORT_FOLLOW").Range.AutoFilter _
Field:=5
ActiveSheet.ListObjects( _
"Tabela__10.116.40.22_1434_DEMAND_PLANNING_VW_REPORT_FOLLOW").Range.AutoFilter _
Field:=5, Criteria1:=dpto

Range( _
"Tabela__10.116.40.22_1434_DEMAND_PLANNING_VW_REPORT_FOLLOW[[#Headers],[STATUS]:[STATUS_PEDIDO]]" _
).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

'Enviar Email

With OutMail
Set myolapp = CreateObject("outlook.application")
Set mynamespace = myolapp.GetNamespace("MAPI")
Set myitem = myolapp.CreateItem(olmessageItem)

Set myrequiredattendee = myitem.Recipients.Add(comercial & ";" & supply)
myrequiredattendee.Type = 1

myitem.Subject = "FORNECEDORES - OK FISCAL " & Format(Date, "dd/MM/yyyy")

myitem.Body = "FAVOR VERIFICAR SITUAÇÃO DOS FORNECEDORES."

myitem.display

Application.Wait Time + TimeSerial(0, 0, 2)

SendKeys "^({v})", True '<~~ Paste

DoEvents

End With

Sheets("Dpto").Select

i = i + 1
x = x + 1
y = y + 1

dpto = Range("A" & i).Value

Set myolapp = Nothing
Set myitem = Nothing

Loop