Thema Datum  Von Nutzer Rating
Antwort
Rot Aus For Schleife Email verschicken, mit If Verzweigung
28.06.2022 16:17:23 f.zimmer
NotSolved
28.06.2022 17:46:41 volti
Solved

Ansicht des Beitrags:
Von:
f.zimmer
Datum:
28.06.2022 16:17:23
Views:
113
Rating: Antwort:
  Ja
Thema:
Aus For Schleife Email verschicken, mit If Verzweigung

Servus Zusammen, ich habe folgendes Problem ich möchte mit der Hilfe von VBA Emails verschicken

wenn in meinem Hilfsblatt die Bedinung erfüllt ist. Im Hilfsblatt ist eine Liste hinterlegt die FALSCH oder WAHR angibt, bei Falsch soll eine Mail verschickt werden bei Wahr die schleife fortgeführrt werden. Wenn ich den Code so her nehme wie er jetzt ist kommt die fehlermeldung Next ohne For, ich hoffe jemand weis wie ich das fixen kann. Es geht Hauptsächlich um die letzten 10 Zeilen.

Sub Versand()

Dim Begrenzung As Integer
Dim i As Long
Dim r As Long

Dim numStart As Integer

'For i = 3 To Begrenzung
'If Worksheets("Hilfsblatt").Cells(i + 36, 2) = Wahr Then
'Exit For
    


Dim objOutlook As Object
Dim objMail As Object
Dim Text As String
Dim Betreff As String


Dim Bauvorhaben As String     'Name Bauvorhaben'
Dim Straße As String          'Straße Bauvorhaben'
Dim Ort As String             'Postleitzahl + Ort'
Dim Gewerk As String           'Gewerk''Eventuell hier auswahlbox einbauen'
Dim Bestellnummer As String      'BS-Nummer'
Dim Projeknummer As Long        'Projektnummer'


Signature = Environ("appdata") & "\Microsoft\Signatures\Haas-Fertigbau-BM01.htm" '°°°

Signature = CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream( _
1, -2).ReadAll


'Müssen noch angepasst werden'

Bauvorhaben = Worksheets("Tabelle1").Cells(37, 2) 'geändert 37=36+i

Straße = Worksheets("Hilfsblatt").Cells(2, 37)
Ort = Worksheets("Hilfsblatt").Cells(3, 37)
Gewerk = Worksheets("Hilfsblatt").Cells(4, 37)

'Email


        
 Text = "<span style=""font-size:10pt; font-family:'Arial'""><font size=4><b>" & "Bv" & Bauvorhaben & ", " & Straße & ", " & Ort & "</b><br>" & vbCrLf & _
        "<b>Einforderung des Bauvertrages" & "</b><br><br>" & vbCrLf & vbCrLf & _
        "<span style=""font-size:10pt; font-family:'Arial'""><font size=2>" & "Sehr geehrte Damen und Herren," & "<br>" & vbCrLf & _
        "aktuell steht noch der unterschriebene Bauvertrag von ihnen aus. Bitte Senden Sie uns für das oben genannte Bauvorhaben den unterschriebenen Bauvertrag innerhalb der nächsten 2 Wochen zu." & "<br>" & vbCrLf & _
        "Bitte Senden Sie die Unterlagen an: christine.oelinger@bavaria-massivhaus.de" & "<br><br>" & vbCrL _

        
 
        
             
             
             
Betreff = "Einforderung Bauvertrag" & " " & "BV:" & " " & Bauvorhaben & " " & "in" & " " & Ort & vbCrLf


Begrenzung = Worksheets("Hilfsblatt").Cells(2, 2)


'Anhänge

    
For i = 1 To Begrenzung Step 1

If Worksheets("Hilfsblatt").Cells(2 + i, 1) = "FALSCH" Then

    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

    With objMail
   
   .To = Worksheets("Tabelle1").Cells(i + 3, 22)             
   .Subject = Betreff                                              
   .htmlBody = Text & Signature                                     
   .display                                                                                                 
    End With
Else
Next i

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aus For Schleife Email verschicken, mit If Verzweigung
28.06.2022 16:17:23 f.zimmer
NotSolved
28.06.2022 17:46:41 volti
Solved