Tengo el archivo de excel denominado «Casa de Audio para la Planificación (28-3-2013)
Las fechas se mantienen en constante cambio cotidiana, pero el texto será el mismo. Entonces, ¿cómo puedo adjuntar los archivos de outlook?

Sub Test()

    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hello World!"



        .Attachments.Add ("C:\Users\Desktop\Today\Home Audio for Planning   (28-3-2013).xlsx")
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub

5 Comentarios

  1. 7

    Tratar a continuación el código : strLocation será generado de forma dinámica. Sólo se puede pasar de esta variable para los datos adjuntos. Nombre de archivo generado sería como Audio para el Hogar Planning_28-03-2013.xlsx

    Sub Test()
        Dim strLocation As String
    
        Dim OutApp As Object
        Dim OutMail As Object
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = "This is the Subject line"
            .Body = "Hello World!"
    
            strLocation = "C:\Users\Desktop\Today\Home Audio for Planning" & Format(Now(), "_DD-MM-YYYY") & ".xlsx"
            .Attachments.Add (strLocation)
            .Display
        End With
        On Error GoTo 0
    
        Set OutMail = Nothing
        Set OutApp = Nothing
    
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    
    End Sub
  2. 0

    Hizo intenta cambiar el attachemnt nombre de la dinámica. Para ex;

    .Attachments.Add ("C:\Users\Desktop\Today\Home Audio for Planning   (" + timeVariable  + ").xlsx")

    y se puede establecer la variable de tiempo antes para que coincida con la fecha de la fecha en el formato requerido.

    Saludos

    • Yo soy incapaz de averiguar cómo escribir este código
    • Error de tiempo de ejecución. La ruta no existe!! Rompiendo mi cabeza por encima de esta. Para guardar el archivo en ese formato, me voy a dar el código como hoy = Format(Now(), «dd-mm-yy»)… así que cuando quiero adjuntar el mismo archivo que estoy recibiendo este error
    • El argumento de la ruta debe contener el nombre de usuario local, es decir, «C:\Users\John Smith\Escritorio\»
  3. 0

    Private Sub Application_ItemSend(ByVal Elemento Como Objeto, Cancel As Boolean)

    Dim strSubject As String
    Dim StrSub As Integer
    Dim AttachCnt As Integer
    
    
    AttachCnt = Item.Attachments.Count
    strSubject = Item.Subject
    StrSub = Len(strSubject)
    strBody = Item.Body
    strBod = InStr(1, UCase(strBody), "ATTACH")
    cnsolidateMsg = ""
    
    If strBod <> 0 And AttachCnt = 0 Then
            cnsolidateMsg = cnsolidateMsg & "Attachment is Null." & vbNewLine
    End If
    
    If StrSub = 0 Then
        cnsolidateMsg = cnsolidateMsg & "Subject is Empty." & vbNewLine
    End If
    If UCase(Trim(strSubject)) = "FW:" Then
        cnsolidateMsg = cnsolidateMsg & "Forward mail subject is empty." & vbNewLine
    End If
    If UCase(Trim(strSubject)) = "RE:" Then
        cnsolidateMsg = cnsolidateMsg & "Reply mail subject is empty." & vbNewLine
    End If
    
    If cnsolidateMsg <> Empty Then
        If MsgBox(cnsolidateMsg & vbNewLine & "Are you sure you want to send the Mail?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for send mail") = vbNo Then
            Cancel = True
        End If
    End If

    End Sub

    • Yo podría arreglar su formato, pero hay que añadir explicaciones de por qué este fragmento de código que responde a la pregunta.
  4. 0
    With OutMail
        .To = ""
        .BodyFormat = olFormatHTML  '---Default
        .Attachments.Add ("C:\Users\Desktop\Test.txt")
        .Display
    End With

    Si no.BodyFormat = olFormatHTMLarchivo se adjuntará en el cuerpo del correo

Dejar respuesta

Please enter your comment!
Please enter your name here