MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Modificando nome do arquivo em anexo no Outlook

    Compartilhe

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    Modificando nome do arquivo em anexo no Outlook

    Mensagem  VitorBraz em Ter 13 Maio 2014, 15:46

    Bom dia Srs,

    Eu utilizo o código abaixo para enviar um e-mail para um determinado cliente, ele funciona perfeitamente.
    Minha dúvida é a seguinte:

    Ele manda um .pdf em anexo de um relatório chamado "os_venda_sac" como consta abaixo, porém eu gostaria de saber se poderia modificar este nome da mesma forma que ele modifica o assunto:
    "2M design - Número da OS " & "" & f

    Pois quando ele anexa o .pdf ele sempre vai com o nome do relatório salvo no access.

    Fixando, seria possível anexar o mesmo .pdf porém modificar o nome no outlook?



    Private Sub Comando13_Click()
    Dim db As Database, rs1, rs2 As Recordset, listamat As String, f As Integer

    On Error Resume Next


    Set db = CurrentDb()
    Set rs1 = db.OpenRecordset("002venda")
    Set rs2 = db.OpenRecordset("clientes")

    f = Me.Texto9
    rs1.MoveFirst
    rs2.MoveFirst


    If Me.Texto9 <> "" Then

    Do Until rs1.EOF
    If rs1![codigovenda] = f Then
    a = rs1![codigocliente]
    Exit Do
    End If

    rs1.MoveNext
    Loop


    Do Until rs2.EOF
    Do Until rs2![codicocliente] = a
    rs2.MoveNext
    Loop
    Exit Do
    Loop
    b = rs2![email1]

    DoCmd.SendObject acSendReport, "os_venda_sac", acFormatPDF, b, , , "2M design - Número da OS " & "" & f, , True



    Else

    MsgBox "Seleciona uma venda para responder ao cliente"

    End If

    End Sub

      Data/hora atual: Sex 09 Dez 2016, 11:35