Boa tarde,
Hoje atualizei meu PC para windows 10 e um programinho que tinha criado para enviar emails deixo de funcionar.
Este programa trabalhava sem problemas até instalar windows 10.
Ele trava na para do ".To"
Alguem para dar uma dica?
Private Sub Command236_Click()
Dim appOutlook As Object
Dim olMail As Object
Dim outItem As Object
Text234.Value = "Enc. " & [Ord#Venda] & " - " & "Artigo - " & [Mat#(Ref#C] & " - " & "Item - " & Item
If Time$ < #12:00:00 PM# Then
Text237.Value = "Bom dia,"
Else
Text237.Value = "Boa tarde,"
End If
If InStr(Nome_Cliente_Final, "RENE") <> 0 Then
MsgBox "Não esqueçer enviar relatório para " & Me.Nome_Cliente_Final, vbInformation, "Info"
End If
If MsgBox("Confirma o envio do e-mail da encomenda " & " - " & [Ord#Venda], vbInformation + vbYesNo, Me.[Mat#(Ref#C]) = vbYes Then
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = Me.Text207
.CC = "" & Me.Text209
.Subject = Me.Nome_Cliente_Final
.Attachments.Add (CurrentProject.Path & "\" & "teste.xlsx")
.Body = Me.Text237 + vbNewLine + vbNewLine + Me.Text234.Value + vbNewLine + "OK para expedir." + vbNewLine + "Obrigado." + vbNewLine + vbNewLine + vbNewLine + "Roberto" + vbNewLine + "Área Medição" + vbNewLine + vbNewLine + vbNewLine + " ****** Email enviado em modo automático pelo sistema ****** "
.Send '.Display (ver email no outlook)
End With
MsgBox "Email enviado com sucesso." & vbCrLf & "Para: " & Me.Text207.Value & vbCrLf & "Cc: " & Me.Text209.Value, vbInformation, "Email"
Check199.Value = -1
Else
MsgBox "Operação abortada...", vbExclamation, "Info"
End If
Combo203.Value = Null
Combo205.Value = Null
Text207.Value = ""
Text209.Value = ""
Command236.Enabled = False
DoCmd.Requery
End Sub
Hoje atualizei meu PC para windows 10 e um programinho que tinha criado para enviar emails deixo de funcionar.
Este programa trabalhava sem problemas até instalar windows 10.
Ele trava na para do ".To"
Alguem para dar uma dica?
Private Sub Command236_Click()
Dim appOutlook As Object
Dim olMail As Object
Dim outItem As Object
Text234.Value = "Enc. " & [Ord#Venda] & " - " & "Artigo - " & [Mat#(Ref#C] & " - " & "Item - " & Item
If Time$ < #12:00:00 PM# Then
Text237.Value = "Bom dia,"
Else
Text237.Value = "Boa tarde,"
End If
If InStr(Nome_Cliente_Final, "RENE") <> 0 Then
MsgBox "Não esqueçer enviar relatório para " & Me.Nome_Cliente_Final, vbInformation, "Info"
End If
If MsgBox("Confirma o envio do e-mail da encomenda " & " - " & [Ord#Venda], vbInformation + vbYesNo, Me.[Mat#(Ref#C]) = vbYes Then
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = Me.Text207
.CC = "" & Me.Text209
.Subject = Me.Nome_Cliente_Final
.Attachments.Add (CurrentProject.Path & "\" & "teste.xlsx")
.Body = Me.Text237 + vbNewLine + vbNewLine + Me.Text234.Value + vbNewLine + "OK para expedir." + vbNewLine + "Obrigado." + vbNewLine + vbNewLine + vbNewLine + "Roberto" + vbNewLine + "Área Medição" + vbNewLine + vbNewLine + vbNewLine + " ****** Email enviado em modo automático pelo sistema ****** "
.Send '.Display (ver email no outlook)
End With
MsgBox "Email enviado com sucesso." & vbCrLf & "Para: " & Me.Text207.Value & vbCrLf & "Cc: " & Me.Text209.Value, vbInformation, "Email"
Check199.Value = -1
Else
MsgBox "Operação abortada...", vbExclamation, "Info"
End If
Combo203.Value = Null
Combo205.Value = Null
Text207.Value = ""
Text209.Value = ""
Command236.Enabled = False
DoCmd.Requery
End Sub