Mail verzenden vanuit excel

[Nikeo]

Hey Jan,

nee niet bepaald ik zou graag hebben dat de macro effectief alle lijnen meeneemt maar maar 1x het adres in de balk plaatst.
Als ook ipv een apparte filter te plaatsen voor de appointment state is het mogelijk om dit gewoon ergens in de formule van de macro te verwerken. Uiteindelijk zijn de enige twee statussen die ik nodig heb de appointment assigned and leeg. Als het een andere status is interesseert het me niet.

 

[JanBG]

Hoi Nikeo,

Je eerste punt ben ik nog mee bezig, maar heb ook andere dingen te doen.....

Het tweede vraagt om een geheel andere macro: in de huidige macro maak ik gebruik van AdvancedFilter: daarmee kun je in een set met data per kolom filteren op bepaalde voorwaarden, maar dat kan maar 1 voorwaarde per kolom zijn, dus filteren op en Appointment_State en 'leeg' kan niet tegelijkertijd...

 

[HSV]

Zo dan @JanBG.



Range("AD2:AF4")

 

[VenA]

Kan je zelf eens wat inspanningen laten zien ipv elke keer te zeggen dat het net niet is wat je wilt? Plaats het laatste bestand waar je mee aan het testen bent geweest. Foutcodes en andere mislukkingen worden dan wel opgelost.

@JanBG, svp geen onzin verkondigen. Het geavanceerde filter is juist uitgevonden om zeer complexe filtervoorwaarden op te zetten.

 

[JanBG]

@HSV, dank, maar werkt op het eerste gezicht nog niet helemaal lekker: je kunt nu niet meer op mailadres filteren

@Vena: je hebt gelijk: ik klets wel vaker uit mijn nek als ik een beetje moe ben...

 

[JanBG]

@HSV: excuus, nu ik wat beter kijk, werkt dat wel

 

[JanBG]

Nikeo,

Hoop dat dit is wat je bedoelt.

Bekijk bijlage Kopie van Kopie van Copy of new funnel-2-2.xlsm

 

[VenA]

@JanBG, wel een beetje de macro-opnames opschonen. Alle selects en toestanden met een extra blad lijken mij niet echt nodig.

In VBA kan het er ongeveer zo uitzien, waarbij het lusje er door de specialisten ook nog uitgehaald kan worden.

Sub Mail_ActiveSheet()
  Sheets("data and refresh").Range("A6").CurrentRegion.AdvancedFilter xlFilterCopy, Range("A2:C4"), Range("A7:AA7")
  If Range("A8") <> "" Then
    For j = 2 To Range("A8").CurrentRegion.Rows.Count
      If InStr(c00, Cells(j + 6, 19)) = 0 Then c00 = c00 & Cells(j + 6, 19) & ";"
      c01 = c01 & Cells(j + 6, 15) & vbLf
      If InStr(c02, Cells(j + 6, 17)) = 0 Then c02 = c02 & Cells(j + 6, 17)
    Next j
    With CreateObject("Outlook.Application").CreateItem(0)
        .to = c00
        .body = c01
        .Subject = c02
        .Display
    End With
  End If
End Sub

 

[JanBG]

Klopt, maar ik was er wel een beetje klaar mee....