Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro simples - avi...
 
Notifications
Clear all

Macro simples - aviso de reuniao outlook

 
2024 - VBA & Macros
Post Recente por wiseman 9 anos atrás
5 Posts
2 Usuários
0 Reactions
531 Visualizações
RSS
 wiseman
(@wiseman)
Posts: 3
New Member
Topic starter
 

Olá, a dúvida é simples pois tenho pouca experiência com macro no Outlook (havia tarbalhado mais com excel).
O codigo deve enviar um email para um email externo, todos os dias, quando houver reuniao em um determinado horário. Segue. A parte em negrito já está dando erro, pode ser algo de formato.
O erro é 'Object varible or with block variable not set'.
Obg!

Sub calendarmsg()

Dim ns As NameSpace
Dim calendar As Object
Dim first As Outlook.AppointmentItem
 
If first.Start = #4/4/2016 9:00:00 AM# Then        'aqui acontece o erro
    objMsg.To = "xxx@xx.com"
    objMsg.Subject = "Meeting at 9"
    objMsg.Send
Else
    objMsg.To = "xxx@xx.com"
    objMsg.Subject = "No Meeting"
    objMsg.Send
End If

Set first = Nothing

End Sub

 
Postado : 04/04/2016 3:00 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vc declarou mas não instanciou... no momento que a linha com first.start roda, first ainda é nothing... Verifique na janela de variáveis locais, ou inspeção de variáveis !

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/04/2016 6:27 am
 wiseman
(@wiseman)
Posts: 3
New Member
Topic starter
 

Obrigado, resolvi o problema, só restou um ponto.

Quando substituo Mydate, pela data por extenso, no caso 04/05/2016, funciona perfeitamente.
Como gostaria que rodasse para todos os dias, substutuí esse termo pela variável Mydate, que contém a data do dia (função date). O erro apresentado é 'type mismatch'.
Alguém consegue ajudar? Provavelmente é só algo de sintaxe...

Sub calendarmsg()

Dim CalendarFolder As Folder
Dim first As Outlook.AppointmentItem
Dim Mail As MailItem
Dim Mydate As Date

Set CalendarFolder = Session.GetDefaultFolder(olFolderCalendar)
Set Mail = Application.CreateItem(olMailItem)
Mydate = Date
'MsgBox (Mydate)

For Each first In CalendarFolder.Items

If first.Start = Mydate & #9:00:00 AM# Then
 Mail.To = "[email protected]"
Mail.Subject = "Meeting at 9"
Mail.Send
MsgBox ("yes")
Else
'Mail.To = "[email protected]"
'Mail.Subject = "No Meeting"
'Mail.Send
'MsgBox ("no")
End If

Next

End Sub

 
Postado : 05/04/2016 9:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

use

If first.Start = Mydate + timeserial(9,0,0) Then

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/04/2016 9:36 am
 wiseman
(@wiseman)
Posts: 3
New Member
Topic starter
 

Perfeito, muito obrigado!

 
Postado : 06/04/2016 3:01 am
Forum Jump:
  Tópico Anterior
Próximo Tópico