Index 2016 - 100 Artigos ✔ VBA Brazil Specialist®

Index 2016 - 100 Artigos ✔ VBA Brazil Specialist®

Visual Basic for Application

Microsoft Excel, Access, Outlook, Powerpoint, Word, SQL, etc...

Acesse + de 1.000 Artigos

VBA, Gauges, Dashboards, Visual Basic, Access, SQL, Outlook, DAO, Powerpoint, Reports, Data, Business Intelligence, Big Data, Donut Project, Sandwich Project, e-Mails, Infográficos, Quick Reference Card, SQL Server, Shell . . .

Download do PDF em ordem Alfabética

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

            

VBA Tips - SendLotusEmails - Envie e-mail com o Lotus Notes

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Envie e-mails através do Lotus Notes. Requer as Classes de Automação do Lotus (Lotus Automation Classes - notes32.tlb).

  ' Attribute VB_Name = "modLotus"

' This public sub will send a mail and attachment if neccessary to the recipient including the body text.
' Requires that notes client is installed on the system.

Public Sub SendLotusEMail(Subject As String, Attachment As String, recipient As String, bodytext As String, saveit As Boolean)

    ' Set up the objects required for Automation into lotus notes
    
    Dim MailDB As Object ' The mail database
    
    Dim UserName As String ' The current users notes name
    
    Dim MailDBName As String ' THe current users notes mail database name
    
    Dim MailDoc As Object ' The mail document itself
    
    Dim AttachME As Object ' The attachment richtextfile object
    
    Dim LotusSession As Object ' The notes session
    
    Dim EmbedObj As Object ' The embedded object (Attachment)
    
    ' Start a session to notes
    
    Set LotusSession = CreateObject("Notes.NotesSession")
    
    ' Get the sessions username and then calculate the mail file name
    
    ' You may or may not need this as for MailDBname with some systems you
    
    ' can pass an empty string
    
    UserName = LotusSession.UserName
    
    MailDBName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    
    ' Open the mail database in notes
    
    Set MailDB = LotusSession.GetDatabase("", MailDBName)
     
     If MailDB.isOpen = True Then
          
          ' Already open for mail
     
     Else
         
         MailDB.OPENMAIL
     
     End If
    
    ' Set up the new mail document
    
    Set MailDoc = MailDB.CreateDocument
    
    MailDoc.Form = "Memo"
    
    MailDoc.sendto = recipient
    
    MailDoc.Subject = Subject
    
    MailDoc.body = bodytext
    
    MailDoc.SaveMessageOnSend = saveit
    
    ' Set up the embedded object and attachment and attach it
    
    If Attachment <> "" Then
        
        Set AttachME = MailDoc.CreateRichTextItem("Attachment")
        
        Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
        
        MailDoc.CreateRichTextItem ("Attachment")
    
    End If
    
    ' Send the document
    
    MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
    
    MailDoc.Send 0, recipient
    
    
    ' Clean Up
    
    Set MailDB = Nothing
    
    Set MailDoc = Nothing
    
    Set AttachME = Nothing
    
    Set LotusSession = Nothing
    
    Set EmbedObj = Nothing

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Lotus, Lotus Notes, e-mails, notes32.tlb, send,

A evolução do GMail

|Blog Infochart | Blog Office VBA | Blog Excel | Blog Access | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Neste mês de abril o GMail completa 9 anos desde o seu lançamento, e como está perto dos 10 anos, é uma boa oportunidade para vermos como muita coisa mudou. Também é verdade que durante este tempo muita coisa mudou na comunicação on-line como um todo.

Os construtores do GMail afirmam que o seu modelo é baseado principalmente no feedback dos seus usuários. Na verdade, o GMail foi inspirado pelo feedback de uma usuária que estava cansada de lutar para encontrar e-mails enterrados no fundo de sua caixa de entrada.

Este novo modelo de e-mail também serviu para alavancar o poder do Google Search.

Outro aspecto surpreendente no GMail é o modo como consegue filtrar mais de 99% dos spams recebidos.

Um recurso recente que tem sido útil a muitos usuários está ligado ao modo como gerenciamos a quantidade excessiva de e-mails que recebemos. Precisávamos de ferramentas para lidar com essa sobrecarga diária de informações, de modo que introduziu a Caixa prioritária para ajudar a gerenciarmos os nossos e-mails.

Este infográfico serve para mostrar-nos todos os ajustes pelos quais o GMail tem passado desde 2004. Muito interessante!

Tags: Gmail, Infograph, Zohair Hyder, Google, e-mails,