none
Outlook - Código de VBA para adicionar "botões de votação" e "salvar item enviado para" RRS feed

  • Pergunta

  • Gostaria de ajuda com um código para adicionar botões de votação no e-mail do Outlook 2010, e se possível configurar para "salvar item enviado para" uma pasta em especifico

    Muito obrigado a quem puder ajudar

    Atenciosamente

    Maiconl Carvalho


    • Editado Maiconl segunda-feira, 24 de fevereiro de 2014 20:19
    segunda-feira, 24 de fevereiro de 2014 17:03

Respostas

  • Ola Maiconl, Tudo bem?

    Veja se o código abaixo lhe atende?

    Sub Create_Email()

    Dim oOutlook As Object
    Dim oMailItem As Object
    Dim oRecipient As Object
    Dim oNameSpace As Object

    ' Create the email

    Set oOutlook = CreateObject("Outlook.Application")
    Set oNameSpace = oOutlook.GetNameSpace("MAPI")
    oNameSpace.Logon , , True

    Set oMailItem = oOutlook.CreateItem(0)
    With oMailItem
    Set oRecipient = .Recipients.Add(FCell)
    oRecipient.Type = 1 '1 = To, 2 = CC
    .Subject = "This is to test Voting Buttons"
    .body = "This is an email macro test"
    .Categories = "Macro Testing"
    .votingoptions = "Yes;No;Put text here"
    .display
    .send
    End With

    End Sub


    terça-feira, 25 de fevereiro de 2014 11:44