✔ Programação GLOBAL®: mensagem

Sim, alterar a mensagem que é mostrada na Barra de Status da sua aplicação MS Access pode ser algo que desejará um dia. Como? Segue código abaixo.

Function ChageStatusBar

Dim nStatus As Variant
Dim nMess As String

Let nMess = "Copyright 2012 - A&A - In Any Place"

' Mostra a mensagem.
Let nStatus = SysCmd(acSysCmdSetStatus, nMess)

' Limpa a mensagem.
Let nStatus = SysCmd(acSysCmdClearStatus)

Tags: VBA. Access, Bar, StatusBar, message, mensagem, barra de status,

VBA Outlook - Envie todas as suas mensagens por e-mails como Bcc, automaticamente.

| Blog Office VBA | Blog Excel | Blog Access |

O MS Outlook tem uma regra quando enviamos mensagens para outra pessoa como Cc, mas não há nada equivalente para mensagens enviadas como BCC (ou CCo, Oculta).

Utilizaremos o evento Application.ItemSend, que será acionado quando um usuário for enviar uma mensagem.

A versão ideal para se fazer isso é a partir do MS Outlook 2003. Ela usa objetos exclusivamente Outlook e inclui manipulação de erro para evitar problemas com um endereço inválido Bcc.

Ela usa objetos exclusivamente MS Outlook e inclui manipulação de erro para evitar problemas com um endereço inválido Bcc.

Coloque esse código VBA no módulo interno de ThisOutlookSession:

1ª Versão:

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean)

   Dim objRecip As Recipient

   Dim strMsg As String

   Dim res As Integer

   Dim strBcc As String

   On Error Resume Next

   strBcc = "bernardess@gmail.com"

   Set objRecip = Item.Recipients.Add(strBcc)

   objRecip.Type = olBCC

   If Not objRecip.Resolve Then

   strMsg = "Não posso enviar esta mensagem oculta. " & _

   "Deseja continuar enviando a mensagem?"

   res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _

   "Não posso enviar esta mensagem oculta.")

   If res = vbNo Then

   Cancel = True

   End If

   End If

   Set objRecip = Nothing

End Sub

A razão pela qual este método não é adequado para as versões anteriores do MS Outlook 2003 é porque ele dispara um alerta de segurança devido ao uso do Recipients.Add.

Você pode evitar avisos de segurança, simplesmente definindo a propriedade Item.Bcc para o endereço desejado, mas terá dois problemas. Primeiro, iria retirar os destinatários Bcc que o usuário já tivesse adicionado. Além disso, em algumas configurações do MS Outlook, mesmo se você usar um endereço SMTP apropriado, obteria um erro, e o MS Outlook  não enviaria a mensagem.

2ª Versão:

Esta versão utiliza a mesma técnica básica da 1ª, apenas adiciona a biblioteca de terceiros Outlook Redemption para evitar avisos de segurança das versões anteriores ao MS Outlook 2003 e, caso o beneficiário não possa ser resolvido, para mostrar ao usuário uma caixa de diálogo de resolução dos nomes.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   ' Requires a reference to

   ' the SafeOutlook library (Redemption.dll)

   Dim objMe As Redemption.SafeRecipient

   Dim sMail As Redemption.SafeMailItem

   On Error Resume Next



   Set sMail = CreateObject("Redemption.SafeMailItem")

   Item.Save

   sMail.Item = Item

   Set objMe = sMail.Recipients.Add ("bernardess@gmail.com")

   objMe.Type = olBCC

   If Not objMe.Resolve(True) Then

   Cancel = True

   End If



   Set objMe = Nothing

   Set sMail = Nothing

End Sub

Reference:

OutlookCode

VBA OutLook - Enviando lembretes por e-Mail.

VBA OutLook - Obtendo o endereço SMTP da um pasta pública do Exchange

Tags: VBA, Outlook, Outlook 2003, send, message, mensagem, Bcc, ThisOutlookSession, automation

VBA Excel - Caixa de Diálogo - Dialog Box

| Blog Office VBA | Blog Excel | Blog Access |

Sim, e porque não voltar ao básico? Perfect!

Revemos o princípio e melhoramos o presente com excelentes perspectivas para o futuro.

Pronto para COPIAR e COLAR - Abra a caixa de diálogo e escolha o arquivo que desejar para o propósito que preferir.

Primeira opção

Não é raro precisarmos pedir alguma informação para o usuário. Qual a melhor maneira de fazer isso se não usar uma caixa de diálogo?

Sub UserInput()

Dim iReply As Integer

iReply = MsgBox(Prompt:="Do you wish to run the 'update' Macro", _

Buttons:=vbYesNoCancel, Title:="UPDATE MACRO")

If iReply = vbYes Then

Run "UpdateMacro"

ElseIf iReply = vbNo Then

'Do Other Stuff

Else 'They cancelled (VbCancel)

Exit Sub

End If

End Sub

Segunda opção

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

Agora suponhamos que você queira submeter os dados entrados a uma análise prévia e direcionamento...Ahhh, isso seria interessante não é mesmo? Tente isso:

Sub GetUserName()

Dim strName As String

strName = InputBox(Prompt:="Seu nome,por favor.", _

Title:="Digite o seu Nome", Default:="Digite seu nome aqui")

If strName = " Digite seu nome aqui " Or _

strName = vbNullString Then

Exit Sub

Else

Select Case strName

Case "André"

'Faça as coisas para o perfil André

Case "Luiz"

'Faça as coisas para o perfil Luiz

Case "Bernardes"

'Faça as coisas para o perfil Bernardes

Case Else

'Faça as coisas para uns perfis mais genéricos

End Select

End If

End Sub

Terceira opção

Dim strFilePath As String, strPath As String Dim fdgO As FileDialog, varSel As Variant MsgBox "A tabela não está correta, " & _ "e o arquivo de dados não pôde ser achado na respectiva pasta: " & _ strPath & ". Por favor,localize a pasta que contenha dados de exemplo " & _ ".: Dialog.", vbInformation, gstrAppTitle Set fdgO = Application.FileDialog(msoFileDialogFilePicker) With fdgO .AllowMultiSelect = False .Title = "Localize a pasta com dados de exemplo" .ButtonName = "Escolha" .Filters.Clear .Filters.Add "All Files", "*.*", 1 .FilterIndex = 1 .InitialFileName = strPath .InitialView = msoFileDialogViewDetails If .Show = 0 Then MsgBox "Houve falha para selecionar o arquivo correto. ATENÇÃO: " & _ "Você talvez não tenha aberto uma tabela conectada a aplicação. " & _ " Você pode re-abrir este formulário ou " & _ "inicie o formulário, tentando novamente.", vbCritical, gstrAppTitle Let CheckConnect = False Exit Function End If Let strFilePath = .SelectedItems(1) End With Let strPath = Left(strFilePath, InStrRev(strFilePath, "\") - 1) Let varSel = AttachAgain(strPath)

Quarta opção

Sub GetDat () 
          ' Posiciona num local  específico.
      ChDrive "C: \" 
      ChDir "C: \ Teste \" 

          Let FileToOpen = Application.GetOpenFilename _
      (Title:="Por favor escolha o arquivo a importar:", FileFilter:="Arquivos Excel *.xls (*.xls),")''
    
      If FileToOpen = False Then

            MsgBox "Arquivo não especificado!", vbExclamation, ":. A&A"
    
            Exit Sub
      Else
            Workbooks.Open Filename:=FileToOpen
      End If
    End Sub

Reference:

Windows

Office

Windows Phone

Xbox

Skype

Bing

Inspiration:

André Luiz Bernardes

Tags: VBA, Dialog box, message, mensagem, caixa de diálogo

VBA Excel - Caixa de Diálogo

Olá mais uma vez...

Segue código pronto para o COPIAR e COLAR (do jeito que eu gosto). Abra a caixa de diálogo e escolha o arquivo que desejar para o propósito que preferir. E porque não voltar ao básico? Isso é perfeito! Revemos o princípio e melhoramos o presente com excelentes perspectivas para o futuro.

Primeira opção

Segunda opção

Sub GetDat () 
       ' Posiciona num local  específico.
      ChDrive "C: \" 
       ChDir "C: \ Teste \" 

       Let FileToOpen = Application.GetOpenFilename _
      (Title:="Por favor escolha o arquivo a importar:", FileFilter:="Arquivos Excel *.xls (*.xls),")''
 
      If FileToOpen = False Then
 
            MsgBox "Arquivo não especificado!", vbExclamation, "Duh!!!"
 
            Exit Sub
       Else
            Workbooks.Open Filename:=FileToOpen
       End If
End Sub

Fontes:
https://sites.google.com/site/vbabernardes/blogs
http://www.mrexcel.com

Tags: Dialog, box, message, mensagem, diálogo, caixa

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

✔ Programação GLOBAL®

Propósito

Meni

.: Vitrine

Views

VBA Access - Alterando a Barra de Status - Message in Status bar

VBA Outlook - Envie todas as suas mensagens por e-mails como Bcc, automaticamente.

VBA OutLook - Enviando lembretes por e-Mail.

VBA OutLook - Obtendo o endereço SMTP da um pasta pública do Exchange

VBA Excel - Caixa de Diálogo - Dialog Box

VBA Excel - Caixa de Diálogo