Hallo Community,
ich bin leider nicht erfahren in Sachen Programmierung und stehe nun vor dem Problem, dass ich ein Formular habe mit 2 "Senden-Buttons" der 1 funktioniert bloß der zweite bereitet Probleme.
Genaueres: Excel 2010 /Makro / Visual Basic
Code:
'Second button macro'
Sub AktiveArbeitsmappeAlsAnhang2()
Application.DisplayAlerts = False
Dim aws As String
Dim wstemp As String
Dim dest As Variant
Dim olapp As Object
Dim Src As Variant
Src = Worksheets(1).Cells(2, 10).Value
Dim Ansp As Variant
Ansp = Worksheets(1).Cells(23, 4).Value
ActiveWorkbook.Save
aws = ActiveWorkbook.FullName
If Worksheets(1).Cells(4, 75).Value = ja Then
dest = "mMustermann1@Test.de; mMustermann2@Test.de; mMustermann3@Test.de; "
ElseIf Worksheets(1).Cells(4, 75).Value = nein Then
dest = "mMustermann1@Test.de; "
End If
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = dest + Src + Ansp
.Subject = "Informationen_Kundenaudits_gesamt"
.ReadReceiptRequested = True
.Attachments.Add aws
.Display
End With
Set olapp = Nothing
Application.DisplayAlerts = True
End Sub
Im Moment ist es so, dass wenn man auf den 2ten „Senden“ Button klickt, immer mmustermann2@test.de und Mmustermann3@test.de angeschrieben werden. Diese sollten jedoch nur dann im Verteiler auftauchen, wenn ein Voraudit geplant ist, also 9.1.1 [Cells(4, 75)]mit ja beantwortet wurde. mmustermann1@test.de soll immer angeschrieben werden.
Kann mir jemand behilflich sein?