Rodolfo Bargeri

Pessoal bom dia, estou com um novo problema no código onde envio e-mails a partir do excel por código vba. Já entrei no Outlook e abaixei o nível de segurança, onde permitia que os macros fossem executados sem nenhum aviso, porém o aviso persiste em aparecer. Já substitui o código .send por outro com ("%r") para que emulasse o Outlook, e assim aparecesse a janela de envio de e-mail preenchida, porém queria que fosse automaticamente mesmo. Agradeço desde já! 'codigo para envio de e-mail quando chamado for aberto' Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = "[email protected]" .Subject = "Chamado aberto" .body = "Chamado aberto no Help Desk, verifique!" .send End With Set OutlookMail = Nothing Set OutlookApp = Nothing ActiveWorkbook.Save Sheets("Banco de Dados").Protect "ZuccA" Application.DisplayAlerts = False ThisWorkbook.Close

Boa tarde pessoal, estou com um problema na macro que estou desenvolvendo, onde o código que será colado logo mais acha apenas o primeiro usuário cadastrado. Ou seja, ele não está percorrendo todos os usuários. Conseguem me ajudar por favor? Obrigado! Código: 'Verificar usuário cadastrado' Linha = 2 Do Until Sheets("Usuario").Cells(Linha, 1) = "" If Sheets("Usuario").Cells(Linha, 1) = Usuario _ And Sheets("Usuario").Cells(Linha, 2) = Senha Then MsgBox "Bem vindo " & Usuario, vbOKOnly, "Acesso Permitido" Call Gravar_Relatorio Application.Visible = True Unload frmLogin Else MsgBox "Usuário ou senha inválidos", vbInformation, "Acesso Negado" frmLogin.txtUsuario = Empty frmLogin.txtSenha = Empty frmLogin.txtUsuario.SetFocus End If Exit Sub Linha = Linha + 1 Loop