habe hier ein problem bei dem ich nicht weiter weiß.
habe dieses Makro(teil) unten zum senden von E-mails aus Excel heraus...
aber leider funktioniert das total unzuverlässig.
Manchmal wird die mail gesendet an alle dann ein anderes mal nicht ...
auch wenn Outlook zu ist wird n ichts gesendet. ? Was kann ich machen oder wie kann ich den code verbessern ?
Vielen Dank an euch alle !!!!
.Subject = betreff & " von " & Environ("UserName") & " " & Worksheets(send_shts).Cells(7, 3) & " am " & Date ' hier Betreff für E-Mail
' Set oOLAttach = .Attachments.Add(speicherpfad & dateiname) ' hier Anhang definieren
.FlagStatus = olFlagMarked 'Mail zur Nachverfolgung kennzeichnen
.FlagDueBy = Now + 10 'Datum festlegen wann Nachverfolgung (Heute + 10 Tage)
.Body = mail_body 'Link + Text in der E-Mail
On Error Resume Next 'evtl. Fehler abfangen
.Send 'Mail senden
oOLRecip.Resolve 'Recipient-Objekt auflösen
If Err.Number = 287 Then
ActiveWorkbook.Protect "pass"
MsgBox ("E-Mail nicht gesendet - Datei wurde kopiert"), vbCritical, "Warnung - Bitte prüfen"
sheet_nr = sheet_nr + 1
End
Else
'MsgBox ("Dateien erfolgreich kopiert und E-Mail verschickt !"), vbInformation, "erfolgreich abgeschlossen"
'Objektvariablen aufheben
Set oOL = Nothing
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOLAttach = Nothing