Mehrere Makro hintereinander
26.11.2016 19:29:37
Ralf
ich habe ein Problem mit einer Makro.
Ich habe eine Makro, wenn ich sie alle laufen lasse funktioniert sie.
Ich habe eine andere Makro, wo mehrere hintereinander laufen, dort bekommt ich einen Debug "Findet keinen Empfänger".
Weiß einer von euch Rat?
Unten habe ich die Makro eingefügt, die 1. läuft wie gesagt alleine, die 2. dort müsste sie als dritte laufen, aber fuz nicht.
Gruß
Ralf
Sub Send_email_Abrechnung()
Dim cdomsg As Object
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mx.versatel.de"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "moef.gaga@muenster.de"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
.Update
End With
' build email parts
With cdomsg
.To = Range("M41")
.From = "moef.gaga@muenster.de"
.Subject = "Abrechnung vom " & Range("B1") & ""
.TextBody = "Hallo Kassenwart," & Chr(13) & _
"" & Chr(13) & _
"hier die Abrechnung für deine Unterlagen." & Chr(13) & _
"" & Chr(13) & _
"Dein" & Chr(13) & _
"" & Chr(13) & _
"Moef Gaga"
.AddAttachment "C:\Users\Acer Laptop\Documents\Kegelclub\Abrechnungen pdf\Abrechnung " & _
Range("B1") & ".pdf"
.Send
End With
Set cdomsg = Nothing
End Sub
Sub Button_Total()
PDFspeichern
KegelabendAbschluss
Send_email_Abrechnung
Kassenbeleg_xlsx_speichern
Kassenbeleg_Schaltfläche1_Klicken
Kegeltermin_leeren
Sitzplan_leeren
In_die_Vollen_leeren
Hohe_Hs_leeren
Niedrige_Hs_leeren
Abraeumen_leeren
Plus_Plus_minus_mal_leeren
Siebzehn_vier_leeren
Boese_5_leeren
zwanzig0_40_60_leeren
UE_Eier_leeren
Abrechnung_leeren
Spielplan_leeren
Tabellen_zuruecksetzen
End Sub