Hej
Jag har redan en klar vba kod där jag med hjälp av excel skickar epost.
Idag används epost adressen
[email protected]
Jag har nu köpt google för företag och vill att det i framtiden ska skickas från
[email protected] (Jag har genom DNS kopplat ihop den adressen till Gmail)
Koden ser ut som nedan
Sub CDO_SEND_MAIL(address As String, subject As String, body As String)
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "
[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
Tyvärr (givetvis) är det inte bara att byta till den andra adressen utan man behöver även kanske justera smtpserver och kanske ytterligare något annat? Jag har själv provat massa olika kombinationer men tyvärr utan resultat.
Vore väldigt tacksam om någon med kunskap inom ämnet kunde hjälpa till. Givetvis utgår ersättning, återkom isf gärna med vad det kan kosta.
Mejla på
[email protected] så tar vi det därifrån.
Hälsningar
SBIF