ביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס

[yossiz]

קישור זה שהעליתי בפרוג לא עזר לך?

[חייםיודלביץ]

@yossiz

לצערי לא עזר לי. ואולי יש בעיה במחשב של החבר לכן הוא לא קלט את הפקודה אבל
במחשב האישי שלי [נסיתי בשל הלקוח] הוא בכלל לא נותן לגשת לשנות את ההגדרות אלו הוא מציג אותם באפור כלומר לא זמין, אני חשבון מנהל. מה זה יכול להיות?

תודה

[yossiz]

מתוך הדף הנ"ל:

הערה אם אפשרויות אלה אינן זמינות, צא מ- Outlook ולאחר מכן התחל שוב Outlook במצב מוגברות. כדי לעשות זאת, הקלד Outlook בשולחן העבודה או בתיבה התחל חיפוש , לחץ לחיצה ימנית על תוצאת החיפוש ב- Microsoft Outlook , לחץ על מאפיינים, לחץ על הכרטיסיה תאימות ולאחר מכן לחץ על הפעל תוכנית זו כ מנהל

מה רשום לך פה בAntivirus Status:

[חייםיודלביץ]

@yossiz

אכן ניסתי כמו שכתוב ונכנסתי כמנהל ואז הוא נתן לי לשנות

למטה רשום לי אנטי וירוס חוקי

אבל עדיין גם אחרי שהגדרתי אותו שלא ישלח התראות[האפשרות השלישית] הוא עדיין נותן לי את ההתראה הנ"ל!

תודה.

[yossiz]

בשלב זה אני מרים ידיים
אולי תבדוק בregistry כפי ההוראות בדף הנ"ל.

דרך אגב, למה דפי התמיכה של מייקרוסופט בעברית נראים על הפנים (כאילו שחסר קובץ CSS), האם זה קשור לנטפרי?

[חייםיודלביץ]

אולי מישהו יודע?

איך כולם שולחים מייל מאקסס?

הדבר חשוב ודחוף לי
אשמח מאד מאד לעזרה!!

בתודה מראש

[clickone]

@חייםיודלביץ
שולחים עם אובייקט CDO.
בעבר העלתי כאן דוגמאות קוד (זה בתיכנות אקסלוסיבי. אם אין לך מנוי שם תכתוב ואני אדביק כאן את הפונקצייה ששמתי שם [אפשרות אחרת זה לשלם מנוי לפורום הזה. מנסיון - שווה כל שקל])
http://tchumim.com/post/27711

[חייםיודלביץ]

אין עדיין מנוי שם אני כבר כמה חודשים מתלבט האם להיכנס לשם , כי אני חובבן לא מתחיל, אבל לא מקצוען.

cdo עובד דרך אאוטלוק? ובעצם אשמח לדעת מה זה בכללץ
אשמח מאד מאד אם תוכל לעלות את הקוד!
בתודה רבה רבה מראש

[clickone]

@חייםיודלביץ לדעתי תנסה לפחות חודש.
תראה שזה שווה כל שקל. במיוחד אם אתה מתחיל. (אין לי אחוזים שם )
ה8 ש"ח האלו זה פחות מ2 שקיות חלב בחודש. והזמן שזה יחסוך לך שווה המון.

CDO זה האובייקט שדרכו אאוטלוק עובר.
מצ"ב הקוד

       Function SendMail(sEmail As String, Title As String, sText As String, Optional sFile As String = "") As String
On Error Resume Next
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") = "smtp.gmail.com"
.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") = "user@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.update
End With
' build email parts
With cdomsg
.To = "to@gmail.com"
.From = "from@gmail.com"
'.sender =
.Subject =  "Subject"
If Me.HtmlBody Then
  .HtmlBody = sText
Else
    .TextBody =  '"the full message body goes here. you may want to create a variable to hold the text"
End If

If Len(sFile) > 0 Then
    Dim arr As Variant
     arr = Split(sFile, ";")
        For i = 0 To UBound(arr)
                If Len(arr(i)) > 0 Then
                    If Dir(CStr(arr(i)), vbNormal) <> vbNullString Then
                        .AddAttachment arr(i)
                    End If
                End If
           
        Next
            End If

.Send
End With
    Set cdomsg = Nothing
If Err = 0 Then
SendMail = "Mail Send"
Else
SendMail = Err.Description
End If
End Function

[yossiz]

פוסט זה נמחק!

[clickone]

@yossiz בעל הפורום, @dovid , מודע לזה. ולא חוסם את זה מסיבותיו שלו.
לא חושב שזה "פייר" להינות בחינם מתוכן שבעל המקום רוצה שיהיה בתשלום כאשר כלל האכסניה היא בחינם. (אני באופן אישי משלם ונהנה)
סליחה על ההערה

[חייםיודלביץ]

@clickone ווואו! תודה!

ב to לרשום את הכתובת, אך מה זה From?

אשמח אם תכול להסביר לי קצת על הפרמטרים של הקוד

יש אפשרות גם לצרף קבצים כלומר דוח?

ושוב תודה רבה רבה!!

[clickone]

@חייםיודלביץ
TO זה לאן לשלוח
FROM זה הכתובת שתוצג ככתובת השולחת. לא זוכר כעת כמה זה עובד בגימייל. (בשרתים אחרים זה עובד מצויין)
sFile זה הקובץ לצרף למייל.
אם אתה רוצה לצרף כמה, תפריד בי שמות הקבצים עם נקודה פסיק = ;
שים לב שצריך לשים נתיב מלא לקובץ

[חייםיודלביץ]

@clickone תודה רבה על על הזמן שאתה מקדיש כדי לעזור לי, למרות שראיתי כאן שאתה מאד עסוק בימים אלה, מקווה שאני לא מפריע לך.

יש אפשרות בצירוף קובץ לשלוח דוח מתוך האקסס בפורמט PDF כמו שניתן במאקרו של שליחת מייל ?

תודה רבה רבה על העזרה!!

[clickone]

@חייםיודלביץ
כן.
אתה צריך לייצא את הקובץ לפני לPDF, ואז לתת אותו בפרמטר
דוגמא:

Dim ssfile As String
ssfile = CurrentProject.Path & "\" & "rptName" & Format(Now, "ddmmyynnss") & ".pdf"
sFile = ssfile
    DoCmd.OutputTo 3, srpt, acFormatPDF, ssfile, False, , , acExportQualityPrint

ואז תעביר לפונקצייה את sFile

[חייםיודלביץ]

@clickone כלומר זה ייצא אותו לתקייה זמנית במחשב, לא בתוך האקסס נכון?

באיזה שורה למקם אותו במודול?

תודה רבה רבה! שימחת אותי מאד בעזרה שלך!

[clickone]

@חייםיודלביץ לתיקייה המקומית שבה נמצא קובץ האקסס.
לפני השליחה של המייל.
אם תעלה קובץ דוגמא אשתדל להוסיף את השורות במקומות הנכונים כדי שתראה איך זה עובד תקין.

[חייםיודלביץ]

תודה!
בפועל אני רואה שאני בכלל לא מסתדר
מצ"ב הקובץ שאיתו אני מנסה
בטופס פרטי איש קשר הוספתי לחצן "שלח מייל" וכתבתי את הפרמטרים אבל הוא נותן לי שגיאה "שגיאה בהקלדה"
בתודה מראש
0_1542146893129_אנשי קשר.accdb

[clickone]

@חייםיודלביץ
הנה קובץ מתוקן.
היה שם משהו בפונקצייה שהיה צריך לתקן.
ועוד משהו, שמת בטעות את התווית של המייל, במקום את התיבת טקסט שלו. ולכן זה נפל.
0_1542147635588_1542146896140-אנשי-קשר.accdb

[חייםיודלביץ]

@clickone תודה!

איפה הוספת את הקוד של להמיר לPDF?

תודה.