Member 13928081 Ответов: 1

Vb-код для excel sheet raw для преобразования pdf и электронной почты.

sn     edress	          subj	      Attachment
 1    chintu.@gmail.com	  Form 16     C:\test\F_810826745_PART A.pdf
 2    chintu1@gmail.com	  Form 16     C:\test\F_810826745_PART B.pdf
 3    chint112@gmail.com  Form 16     C:\test\F_810826745_PART c.pdf
в excel есть строка 3000, и вы хотите отправить файл в прикрепленной почте.

У меня есть код, но приложение не работает над ним. не могли бы вы подсказать мне, как мне добавить к нему привязанность?

Что я уже пробовал:

VB-код такой же, как и ниже.

Sub Macro2()

    Dim olapp As Outlook.Application
    Dim olmail As Outlook.MailItem



    For i = 2 To 4

        Set olapp = New Outlook.Application
        Set olmail = olapp.createitem(olmailitem)

        With olmail
    
            .To = Cells(i, 1).Value
            .Subject = Cells(i, 2).Value
            .body = Cells(i, 3).Value
            .Attachments.Add.Source "D2"
            .Display
            'olmail.send
    End With

    Set olmail = Nothing
    Set olapp = Nothing

    Next

End Sub

1 Ответов

Рейтинг:
2

CHill60

Ты как раз там... Однако нет необходимости продолжать создавать экземпляр Outlook для каждой строки

Sub PleaseGiveMeAMeaningfulName()

Dim olapp As New Outlook.Application
Dim olmail As Outlook.MailItem

    For i = 2 To 4  'Why only these rows?

        'Don't do this in the loop! ... Set olapp = New Outlook.Application
        Set olmail = olapp.CreateItem(olmailitem)

        With olmail

            .To = Cells(i, 1).Value
            .Subject = Cells(i, 2).Value
            .body = Cells(i, 3).Value
            .Attachments.Add Cells(i,4).Value
            .Display
            '.Send

        End With

        Set olmail = Nothing

    Next

    Set olapp = Nothing

End Sub