Hallo zusammen, ich habe mit u. a. das Problem das mein Partner, wenn er den Code ausführt die Mail nicht gesendet wird.
Er hat Office 2016, ich arbeite in Office 2019.
Bei mir wird die Mail gleich gesendet, wenn ich den Code ausführe.
Hat hierfür einer eine Idee, warum das Senden von meinem Mitstreiter aus nicht funktioniert?
Gruß Josef
Er hat Office 2016, ich arbeite in Office 2019.
Bei mir wird die Mail gleich gesendet, wenn ich den Code ausführe.
Hat hierfür einer eine Idee, warum das Senden von meinem Mitstreiter aus nicht funktioniert?
Gruß Josef
Visual Basic:
Private Sub CommandButton1_Click()
Dim WSh As Worksheet
Dim sMailtext As String
Dim sBer As String
Set WSh = ThisWorkbook.Sheets("Info") ' Blatt mit Maildaten
sBer = "A1:G90" ' & WSh.Cells(Rows.Count, "B").End(xlUp).Row ' Kopierbereich
WSh.Range(sBer).Copy ' Bereich kopieren
With CreateObject("Outlook.Application").CreateItem(0)
.BodyFormat = 2 ' 2=HTML-Format, 3=Richtext
.Subject = "Änderungen" ' & WSh.Range("G7") ' Betreff
.To = "xxxxxxxxxx@t-online.de" ' Empfänger
' .CC = "yyyyyyyyyyyy@t-online.de" ' Info- Empfänger
sMailtext = "Aktueller Änderungsumfang" ' Mailbodytext
' sMailtext = Replace(sMailtext, "¶", vbLf) ' Umbrüche einfügen
.GetInspector ' Signatur holen
.htmlbody = Replace(sMailtext, vbLf, "<br>") & .htmlbody
.Display ' Auf dem Display anzeigen
With .GetInspector.WordEditor.Application.Selection
.Start = Len(sMailtext): .Paste ' Grafik in Mail einfügen
End With
.send
End With
Worksheets("ArbTab").Visible = True
Worksheets("PLZ").Visible = True
' Ab hier "Die Datei wird automatisch beendet
Application.DisplayAlerts = False ' Alle Meldungen ausschalten
Workbooks("Neue Datei für DEMO.xlsm").Close SaveChanges:=True
Application.DisplayAlerts = True ' Nach dem Speichern alle Meldungen wieder einschalten
For Each WSh In Application.Workbooks
Next
Application.Quit
End Sub